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_ Clipper is the fastest dBase II] and — 

dBase III Plus’ compiler available. | a. 

Nothing else comes close. When | 
performance counts, experts rely 
on Clipper for more speed, more 
power, and more creative freedom. 
You can, too. Call for details. 





® Clipper compiled programs | 
run 2 to 20 times faster. ; 
© No royalties...no runtime fees. 
CENer taro elt any celta ee 

© User defined ete 

ate ete Re : 

e Simple menu commands. 


* Context sensitive help can be 
included with programs. 


* More fields; more memory 
variables. : 
* Call C and Assembly programs. 
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HDT Me usieisy. CS COMPILER. | 
A WINNING PERFORMANCE EVERY TIME. 








Nantucket Corporation 

5995 South Sepulveda Boulevard 

Culver City, California 90230 

(213) 390-7923 | | LOOK FOR CLIPPER™ 


Outside California call toll-free: 

1-800-251-8438 if 

dBase, dBase III, and dBase III Plus are trademarks 

of Ashton-Tate, Inc. 18 Um ~ 


ie PC, SE ose tay goa nluay ame 

i i h tion. 

S ipper Peers des | IT MAKES NETWORKING EASY. 
Se Circle no. 220 on reader service card. 
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Gold Hill. The expert in Al on PCs. 


___ * The Gold Hill 386 LISP System requires an IBM PC XT, AT or compatible. GCLISP 
286 Developer Software requires an IBM PC AT or compatible. 
© 1986 Gold Hill Computers, Inc. Gold Hill, Gold Hill 386 LISP System, Golden 
Common LISP, GCLISP, and Developer are trademarks of Gold Hill Computers, 
____ Inc. IBM PC, XT and AT are registered trademarks of International Business 
_ Machines Corp. HummingBoard is a trademark of A.I. Architects, Inc. 
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Not long ago, a specialized 
LISP machine was your 
only choice for serious AI 
development and delivery. 

But now you can get LISP 
machine performance out of 
that ordinary IBM PC* sitting 
on your desk. With the Gold 
Hill 386 LISP System. 

You simply plug in the 
System’s HummingBoard™— 
unique 386-based hardware _ 
designed specifically for the LISP 
environment. Then you add the 
System’s Golden Common 
LISP 386 Developer software. 

That's all you need to trans- 
form your PC into a LISP 
machine. You can develop 
and deliver AI applications 
on your PC. And create your 
own expert systems. Youll 
get the kind of LISP perfor- 
mance you thought was only 
possible in a system costing 
ten times as much. 

And if you don't need the 
whole system, Gold Hill can 
still offer you AI solutions. 
You can get GCLISP 286 
Developer software for your 
PC* And GCLISP 386 Devel- 
oper software will be avail- 
able for leading manufacturers’ 
386-based PCs. 

Tomorrow’s AI develop- 


- ment tools for PCs are avail- : 


able today from Gold Hill. 
We'll prove it to you—just call 
to get the latest Gabriel Perfor- 
mance Benchmarks. You'll 

be amazed to learn what your 
PCi is capable of. Call toll-free: 


1-800-242-LISP 


In Mass.: (17) 492-2071 
Gold Hill Computers, Inc. 
163 Harvard St., | 

_. Cambridge, MA 02139 


GOLDHILL 











ANOTHER 
PLUS FROM 
BLAISE 
COMPUTING 


The best just got bet- 
ter! Turbo POWER 
TOOLS, acclaimed as 
the best programmer 
support package for 
Turbo Pascal, now has 
even more functions, more detailed docu- 
mentation and more sample programs. 


NOSECRETS 


Turbo POWER TOOLS PLUS is crafted so 
that the source is efficient, readable and 
easy to modify. We don’t keep secrets! We 
tell you exactly how windows are managed, 
how interrupt service routines can be writ- 
ten in Turbo Pascal, and how to write mem- 
ory resident programs that can even access 
the disk. Maybe you’ve heard of some un- 
documented DOS features that resident 
programs use to weave their magic. Turbo 
POWER TOOLS PLUS documents these 
features and lets you make your own magic! 


Here’s just part of the PLUS 

in Turbo POWER TOOLS PLUS: 
WINDOWS that are stackable, re- 

movable, with optional borders anda 

cursor memory. 


FAST DIRECT VIDEO ACCESS for 
efficiency. 

SCREEN HANDLING including 
multiple monitor and EGA 43-line 
support. 


POP-UP MENUS which are flexible, 
efficient and easy to use, giving your 
applications that polished look. 

INTERRUPT SERVICE ROUTINES 
that can be written in Turbo Pascal 
without the need for assembly lan- 
guage or inline code. 


Power Tools Plus’ 


Window Routines. 
Memory Resident Routines. 


Routinely. 


INTERVENTION CODE lets you de- 
velop memory resident applications 
that can take full advantage of DOS 
capabilities. With simple procedure 
calls, you can ‘“‘schedule”’ a Turbo 
Pascal procedure to execute either 
when a “hot key” 1s pressed, or at a 
specified time. 

PROGRAM CONTROL ROUTINES 
allow you to run other programs from 
Turbo Pascal, and even execute DOS 
commands. 


MEMORY MANAGEMENT allows 
you to monitor, allocate and free DOS- 
controlled memory. 

DIRECTORY AND FILE HAN- 
DLING support to let you take advan- 
tage of the newer features of DOS 
including networking. 


STRING procedures al- 


...one package stands out as 
the best support available for Turbo 
Pascal programmers: Blaise Com- 
puting’s Turbo Power Tools. This 
definitive set of prewritten Pascal 
functions and procedures will 
make the life of any programmer— 
from the beginner to the hard-core 
professional—easier and more 
productive. 


have distinguished 
Blaise Computing 
over the years. 


Turbo POWER 
TOOLS PLUS sup- 
ports Turbo Pascal 
Version 2.0 and 
later and is just 


$99.95. 


Another quality prod- 
uct from Blaise Computing: Turbo ASYNCH 
PLUS™ 

A new package which provides the crucial 
core of hardware interrupt support needed to 
build applications that communicate. 
ASYNCH PLUS offers simultaneous buffered in- 
put and output to both COM ports at speeds up 
to 9600 baud. The XON/XOFF protocol ts sup- 
ported. Now it also includes the “XMODEM” 
file-transfer protocol and support for Hayes 
compatible modems. 

The underlying functions of Turbo ASYNCH 
PLUS are carefully craftedin assembler for effi- 
ciency and drive the UART and programmable 
interrupt controller chips directly. These func- 
tions, installed as a runtime resident system, 
require just 3.2K bytes. The high level function 
are all written in Turbo Pascal in the same 
style and format as Turbo POWER TOOLS 
PLUS. All source code gy is included for just 


$99.95. wy 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 


ORDER TOLL-FREE 800-227-8087 


Calif. residents call (415) 540-5441 a= = = — 
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TOOLS: Text Editors: In Matters of Taste... 

by Levi Thomas and Nick Turner 

The choice of a text editor is based partly on ‘“‘hard”’ 
pragmatic requirements and partly on more subjective 
considerations, such as personal tastes and biases. In this 
month's cover story, DDJ talks to some programmers about 
the agony and the ecstasy of searching for the perfect text 
editor. 

CODING: 6502 Hacks 

by Mark S. Ackerman 

Mark gives us a peek into the magician’s hat. He describes 
some killer hacks designed to squeeze that last byte and/or 
machine cycle out of an assembly-language program. 
ALGORITHMS: Hashing for High Performance 
Searching 

by Edwin T. Floyd 

Edwin explains, demonstrates, and evaluates four different 
hashing algorithms. 
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C CHEST 

by Allen Holub 

The first in a series of installments on nr—Allen’s version 
of the Unix formatting utility, nroff. This month he 
discusses symbol table maintenance with hashing 
functions, expression analysis, and a method for printing 
Roman numerals. 
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by Ray Duncan 

A look at the MS-DOS STACK command, techniques for 
writing memory-resident programs, and books for MS-DOS 
programmers. 
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Our new columnist starts things off with some AI history, 
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About the Cover 
Ethologists call it imprinting—a 
baby duck emerges from a shell 
and regards the first large object it 
sees as its mother. Is this why so 
many programmers still use 
WordsStar? 


This Issue 
This month, we delve into some of 
the issues that must be considered 
when choosing—or designing—a 
text editor. We asked some pro- 
grammers to tell us about their fa- 
vorite and least favorite editing pro- 
grams. Also, Allen Holub begins a 
series of columns on his own text 
processing program, nr. 


Next Issue 
In March, DDJ looks at data com- 
pression with a lead article that 
describes a recursive scheme for 
compressing image data and a 
comparative review of microcom- 
puter archival programs. 
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EDITORIAL 


QO ur feature article 
this month deals 
with editors, and it is in 
some ways frustrating. 
It is certainly not one of 
those buyer’s guide 
pieces that lead the be- 
wildered consumer 
through the maze of 
creeping functions. We 
set out rather to exam- 
ine the fundamental is- 
sues in editing, issues that both the 
user and the designer of a program- 
mer’s editor must face. What we 
found as we dug into the topic was 
that the more fundamental an issue 
was the more rabidly subjective it was 
likely to be—and arbitrary. The Baby 
Duck Syndrome is a force to be reck- 
oned with. Again, frustrating. 

Some recent developments, 
though not falling precisely in the do- 
main of programmers editors, sug- 
gest alternatives to traditional ap- 
proaches to editing. 

One of these is a product called 
Guide made by OWL International. 
The firm claims to have implement- 
ed Ted Nelson's vision of Hypertext in 
this Macintosh product. The claim it- 
self is relatively uninteresting; Hy- 
pertext will be realized, is being real- 
ized, piecemeal, just like the grab bag 
of ideas that Alan Kay lumped togeth- 
er under the name Dynabook. 

What is really interesting is that 
Guide has been explicitly designed to 
handle electronic documents. It will 
accept text files from conventional 
editors and will in turn produce flat 
text for conventional editors, but 
these tasks are outside its purpose. 
The document you structure with it 
lives in more than two dimensions. 

OWL does not promote Guide as a 
tool for software development, but 
some of its features are interesting to 
look at in that context. Elements of 
the text can be suppressed or ex- 
pressed at will, in a similar manner to 
the way an outline processor allows 
collapsing of detail but without the 





constraint of the out- 
line structure. A sup- 
pressed section is tied 
to a name, which it re- 
places when clicked 
on. This suggests auto- 
matic expansion of 
macros or pulling in a 
subroutine to examine 
its code. Guide also 
permits alternative 
text elements to be de- 
fined and selected. 

Another interesting development is 
the WEB documentation system, cre- 
ated by Donald Knuth and discussed 
in The WEB System of Documentation 
(Report Stan-CS-83-980) available from 
the Stanford University Computer Sci- 
ence Department. WEB actually im- 
plements some of the ideas described 
above in a tool specifically designed 
for writing structured and well-docu- 
mented programs. 

WEB is a high-level description lan- 
guage that produces Pascal code. WEB 
programs consist of short sections, 
each section comprising informal 
commentary, macro definitions, and 
Pascal code. The Pascal code can con- 
sist of a name and replacement text, 
in which case WEB will replace the 
name wherever it occurs with the re- 
placement text (code). 

One idea that both these develop- 
ments suggest is the possibility of a 
program that would exist while un- 
der simultaneous development in two 
complementary forms: the working 
version and the working-on version. 
As Knuth puts it, ‘a WEB program is a 
Pascal program that has been cut up 
in pieces and rearranged into an or- 
der that is easier for a human being to 
understand. A Pascal program is a 
WEB program that has been rear- 
ranged into an order that is easier for 
a computer to understand.’ 


Hb. derd Sarorm 


Michael Swaine 
editor-in-chief 
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Our thanks to NASA for supphing this computer enhanced ultraviolet photo taken by Skylab IV of a solar prominence reaching out 350,000 miles above the sun’s surface 


Genius Begins With A Great Idea ... 


What follows is the time consuming task of giving 
form and function to the idea. 

That’s why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 


Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System ... .$199 
° optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options ¢ Manx Aztec 8086/80x86 macro assembler 
° Aztec overlay linker (large/small model) © source 
level debugger © object librarian ¢ 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System...... $299 
¢ includes all of Aztec C86-p © Unix utilities make, 
diff, grep © vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System. .... $499 
¢ includes all of Aztec C86-d ¢ Source for library rou- 
tines ¢ ROM Support ¢ CP/M-86 Support ¢ One year 
of updates. 


Aztec C86 Third Party Software 


A large array of support software is available for 
Aztec C86. Call or write for information. The following 
is a list of the most requested products: Essential 
Graphics ¢ C Essentials ¢ C Utility Library ¢ Green- 
leaf Com. ¢ Greenleaf General ¢ Halo « Panel e PC- 
lint * PforCe * Pre-C * Windows for C ¢ Windows for 
Data C terp ¢ db Vista * Phact ¢ Plink86Plus ¢ C-tree. 


— 


C compiler, 8080/Z80 assembler, linker, librarian, 
UNIX libraries, and specialized utilities. 


Aztec C Il-c (CP/M-80 &ROM)........ $349 
Aztec Cll-d (CP/M-80).............. $199 
Aztec C80 (TRS-803&4)............ $199 





Manx Software Systems 
1 Industrial Way, Eatontown, NJ 07724 


Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional ......$199 
A price/feature/performance miracle. System in- 
Cludes: optimized C * 68000/680x0 assembler 
68881 support © overlay linker « UNIX and Amiga 
libraries ¢ examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional. ... . .$199 
* optimized C * 68000/680x0 assembler ¢ 68881 
Support © overlay linker ¢ UNIX and Macintosh |i- 
braries ¢ examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


—_—_———————— 


Aztec C65 is the only commercial quality C com- 
piler for the Apple Il. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 
braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
* runs under ProDOS ° code for ProDOS or DOS 3.3 
Aztec C65-d Developer............. $199 


* runs under DOS 3.3 © code for DOS 3.3 





PHACT 


An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ................ $500 
ROM Support Package............. $500 


Call for information on Vax, PDP-11, Sun and other 
host environments. 





These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


COP a iG ok ee 


$75 


Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 
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To become a user call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.0.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software Stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


MS is a registered TM of Microsoft. Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd.. 

TM PHACT Assoc., PRE-C, Plink-86, Plink-86 + , P-Force TM Phoenix, db Vista TM Raima Corp., C-terp, PC-lint, TM Gimpel Soft- 
ware, C-tree TM Faircom, Inc., Windows for C, Windows for DATA TM Creative Solutions, Apple II, Macintosh TM Apple, Inc., TRS-80 TM 
Radio Shack, Amiga TM Commodore Int'l., Unix TM AT&T, Vax TM DEC, Aztec TM Manx Software Systems. 





RUNNING LIGHT 


his month we fo- 

cus on a subject 
that is near and dear to 
the hearts of magazine 
editors and software 
authors alike: text edi- 
tors, and what makes 
them good or bad. 
There have _ been 
many new develop- 
ments in the field re- 
cently, and we wanted | 
to get an idea of what you, as pro- 
grammers, thought of them. Specifi- 
cally, what is desirable in a program 
source code editor? Your opinions 
were interesting. Allen Holub also 
talks about editors in this issue: He be- 
gins a series of columns on nr, his ver- 
sion of the Unix nroff program. 

Also in this issue, we introduce our 
newest columnist, Ernie Tello. Rela- 
tively sophisticated AI tools are final- 
ly becoming available, and Ernie 
talks «bo ut some of them in his first 
column. It’s a welcome addition to 
DDJ, and I hope you'll send us a 
mountain of mail about it. Let us 
know what you think. 


In this year’s August issue, we Il 
take a look at tools for C program- 
mers. We're particularly interested 
in articles that demonstrate the 
power and efficiency of really well- 
written C code. The ideal article 
would be between 1,000 and 3,000 
words long and would include a list- 
ing between 100 and 400 lines long 
(see my listing advice below). Short 
file processors, keyboard filters, data 
compression techniques, and other 
utilities are all of interest, as well as 
math algorithms, string handlers, 
and other black box routines. If 
you've invented a tight new routine, 
let us know about it. 

Here’s more advice for authors, 
this time about program listings. DDJ 
is proud to be one of the few comput- 
er magazines that still regularly pub- 
lishes source code listings. You want 
them, and we provide them. But list- 





ings frequently turn 
into a headache at the 
layout stage, when we 
have to balance the 
cost of white space vs. 
the placement of ads 
and the need for the 
listings to be large 
enough to be readable. 
Another problem with 
listings is that fre- 
_ quently we have to do 
a lot of time-consuming editing to get 
them into a format that will print 
well on a laser printer. Sometimes 
editing of listings is necessary for an- 
other reason as well—the listing sim- 
ply is not readable enough. 

What can you do to help? It’s really 
not all that hard. First, keep your list- 
ings as clean as you possibly can. That 
means no tab characters, for exam- 
ple. Instead, whenever possible use 
spaces to indent your code. Second, 
keep your listings on the narrow 
side—less than 60 columns if at all 
possible. If your comments go out be- 
yond that point, I may shorten them 
or your article may be pulled from 
the issue because the listings won't 
fit. Readability is also important—if 
you are writing in C or Pascal (or 
some other structured language), use 
at least four columns for your in- 
dents. If it turns out that you can't 
keep your source code under 60 col- 
umns with four-column indents, 
then you have too many levels of 
nesting. The best thing to do in such 
cases is to remove the innermost lev- 
els and make them a separate rou- 
tine. Some of you may be responding 
with outrage at this. You're the ones 
who put big banner headlines at the 
tops of your programs. That's fine for 
fanfold paper, but magazine 
space is often at a premium. So keep 
it short and sweet, please. 


NAgu— 


Nick Turner 
editor 
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Program Editors 

“It seems to me that a great obstacle to 
better programming is the lack of an editor 
that is as well adapted to its purpose as Visi- 
Calc is adapted to calculation in rows and 
columns.’’—‘‘Re-Thinking Program Edi- 
tors,’ William B. Brogden, DDJ, June 1981. 





Magazine Editors 
“Planning each issue of DDJ is like play- 
ing a game of editorial bingo. We sit down 
at a long table with our game card and 
pieces of corn to lay on squares. Across the 
top of the card are the column labels — 

- 8080, 6502, 1802, 6800, etc. The horizontal 
rows are categorized into algorithm, lan- 
guages, hardware, programming prob- 
lems, and more. Now and then our pieces 
form a straight line and we all yell, ‘Bin- 
go!’ '’—editorial, Marlin Ouverson, DDJ, Au- 
gust 1981. 





Ten Years Ago in DDJ 
“Talking dirty in a cryptogram is super 
except when you and your ten year old 
daughter (for real) decode it. It lost a lot of 
its humor while I tried explaining it.” — 
name witheld, letter to DDJ, February 1977. 

‘T wish to offer a sincere apology for this. 
When I scanned the article, it occurred to 
me to check the sample for accuracy (but I 
didn’t). However, it never occurred to me 
to check it for immature vulgarity. .. .”— 
Jim Warren, editorial response to the above, 
DDJ, February 1977. 

“For $599, Ohio Scientific Instruments is 
selling a fully-assembled diskette drive in- 
cluding read/write electronics, manuals, 
mating connectors, system interface board 
(bare) and 6502/6800 operating system, de- 
livery guaranteed to be less than 120 days. 
User supplied parts are conservatively esti- 
mated to cost an additional $145. Eight to 
ten evenings of assembly time and testing 
are suggested.’ —DDJ, February 1977. 

“RE. Jef Raskin’s ‘Cardboard Computer 
Company’—I've had the same problem 
(money), so for a couple of bucks, I got some 
walnut grained contact paper which I used 
to cover cardboard, plywood, or alumi- 
num chassis enclosures. If you take a little 
time to smooth the wrinkles and air bub- 
bles, you will have the ‘Classy Cardboard 
Computer Company.’... Oh yea, I really 
enjoy Jef’s articles—wish he had written 
more about the $-100 bus earlier before I 
committed to a system that doesn’t use said 
standard.”’—W. B. Goldsmith, Jr., letter to 
DDJ, February 1977. 
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_ AChallenge to Microsoft C... 


We challenge Microsoft C (Ver 4.0) to a C compiler duel to the finish, measuring compile, link, 
we will stop advertising for two months. 


and execution times. If they win, 


by Roy Sherrill 


If Microsoft C (Ver 4.0) can beat 
Optimum-C then we will stop advertis- 
ing in all magazines for two full months 
and, win or lose, we will publish the 
results in its entirety. Even the Micro- 
soft ads say ““The Fastest C you’ve ever 
seen,’ so let the challenge begin. 


Walter says Optimum-C is better 


It all started when Walter Bright, the 
developer of Optimum-C, was explaining his 
new global optimizing C compiler and how 
it’s code would be faster than Microsoft C 
(Ver. 4.0). Walter and I were frustrated 
because here we had a C compiler that would 
beat Microsoft C on 7 out of 10 benchmarks 
and also compile and link faster; yet our mar- 
keting consultant, Mark Astengo, told us that 
Microsoft C had a lock on the C compiler 
market and by 1990 they would probably have 
an 807% market share. Then Mark said, “Roy, 
if your C compiler is as fast as you say it is, 
why not challenge Microsoft C to a duel? If 
Microsoft wins, Datalight should stop adver- 
tising for two months and print the results of 
the test, win or lose.” Well, I’ve always been 
one for a challenge. So here it is... 


We only ask the following... 


The benchmark suite will consist of the set 
of programs that Microsoft supplied to 
Computer Language for their February 1987 C 
compiler review issue. Microsoft will make 
available the programs to Datalight at least 
two weeks prior to the benchmarking. The 
benchmarking will be between Microsoft C 
4.0 and Optimum-C. It will occur at a mutu- 
ally agreed upon time and place. Interested 
individuals will be allowed to attend. The 
benchmarks will be compiled and run on a 
standard IBM PC-AT. 

There will be two separate tests for each 
program: compile and link speed, and execu- 
tion speed. For each test, a representative 
from each company will set up the compiler 
so that it performs at its best. 

The benchmarks will be adjusted so that 
they take sufficiently long to run, that the 
tolerance involved in timing them is insig- 
nificant. The winner is determined by the 
compiler with the faster execution times for 
the majority ofthe benchmarks. We'd like an 
answer from Microsoft no later than April 1, 
1987. 


So what’s a global optimizer? 


A global optimizer looks at an entire 
function at once, analyzing and optimizing 
the whole function. A technique called data 
flow analysis is used by Optimum-C to gather 
information about each function. This en- 
ables your compute-bound programs to exe- 
cute as much as 30% faster after global 
optimization. But, there is one catch...because 
the global optimizer ruthlessly searches for 





ways to speed-up execution speed and mini- 
mize memory usage, it has relatively slow 
compile times. No need to worry, though, 
because you can merely turn the global opti- 
mizer off. In fact, you can select all, none, or 
partial of the following optimizations: con- 
stant propagation, copy propagation, dead 
assignment elimination, dead variable elimi- 
nation, dead code elimination, do register 
optimizations, global common subexpression 
elimination, loop invariant removal, loop 
induction variables, optimize for space, 
optimize for time, very busy expressions. 


Choose from five memory models 


Speed your programs by selecting the mem- 
ory model that best suits your application. 


Memory Models 


Model Code Data 
Compact 64k total code & data 
Small 64k 64k 
Program 1M 64k 
Data 64k 1M 
Large 1M 1M 


Compiling, one step... 


Now with the one step DLC program you 
can create OBJ, .EXE and COM files. Also, 
DLC can handle multiple files and run MASM 
on your assembly files. 


Try Optimum-C risk free 


Try Optimum-C for 30 days and if you are 
not 100% satisfied return it for a full refund. 
Also, for a limited time we are including a 
“free C tutorial which is a combination 
workbook and floppy disk to help lead you 
through the C language with tutorials, 
quizzes, and program exercises, 

O.K. Microsoft, it’s up to you. We’ve put 
two months of advertising on the line that says 
you can’t beat Optimum-C to a real test. Your 
answer, please? 


PRICES 


Developer’s Kit 
Optimum-C 
(includes library source code) 
Add $5 for shipping in US/$15 outside US 
COD (add $2.50) 


Not Copy Protected 


e" N 
oe’ 


still only $99 
$139 





ORDER TOLL-FREE TODAY! 
1-800-221-6630 


Microsoft and MS-DOS are registered trademarks 
of the Microsoft Corporation. 


Circle no. 203 on reader service card. 


Magazine Reviewers Shocked by 
DATALIGHT?’s Performance... 


“Reviewing this compiler was quite a surprise 
for us. For such a low price, we were expecting 
a “‘lightweight”’ compiler. What we got was 
a package that is as good as or better than 
most of the “heavyweights.” Datalight C 
implements a complete C language. It also 
compiles quickly, doesn’t take up much disk 
space, and looks impressive in the 
benchmarks.” 


DR. DOBBS, August 1986 


‘This is a sharp compiler!... what is impres- 
sive is that Datalight not only stole the com- 
pile time show completely, but had the fastest 
Fibonacci executable time and had excellent 
object file sizes to boot!”’ 


COMPUTER LANGUAGE, February 1986 






Optimum-C Version 3.0 


Full UNIX System 5 C language plus 
ANSI extensions 

Fast/tight code via powerful optimizations 
including common _ sub-expression 
elimination 

DLC one-step compile/link program 
Multiple memory model support 

UNIX compatible library with PC functions 
Compatible with DOS linker and assembler 
Third-party library support 

Automatic generation of .COM files 
Supports DOS pathnames, wild cards, 
and Input/Output redirection 
Compatible with Lattice C version 2.x 
Interrupt handling in C 

Debugger support 

ROMable code support/start-up source 


MS-DOS° Support Features 


Mouse support 
Sound support 
Fast screen I/O 
Interrupt handler 


MAKE Maintenance Utility 


Macro definition support 
MS-DOS internal commands 
Inference rule support 


TOUCH date manager 


Tools in Source Code 


cat—UNIX style “type” 
diff—Text file differences 
fgrep—fast text search 
pr—Page printer 

pwd—Print working directory 
wc—Word count 
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Datalight 


Box 82441 
Kenmore, Washington 98028 
(206) 367-1803 


*Limited offer available exclusively to readers who 
purchase directly from Datalight. 
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LETTERS 





80386 
Dear DDJ, 
I have finished reading ‘“Program- 
ming on the 80386” (October 1986), 
and I am both excited and troubled 
by all of the changes (enhancements) 
made to the basic 8086. 

It takes several years for the com- 
munity of software professionals to 
master a machine—to make that 
computer do more than it is general- 
ly believed it can do. There is no ques- 
tion that the new operating systems 
and application programs for the 
80386 are going to be very sophisticat- 
ed (or should be). Just using the ma- 
chine’s instructions the way they are 
intended to be used scares and at- 
tracts me at the same time. 

But it takes a long time to 
master a computer at the level 
of a good assembly-language 
programmer. It takes less time 
for higher-level languages, 
but a state-of-the-art applica- 
tion writer still needs to know 
how to take advantage of the 
services offered by the oper- 
ating system. This knowledge 
is best gained by the shared 
experience of many users. 

Only after the experience 
of the whole community has 
reached a certain level (which 
can take years) does it become 
general knowledge what not 
to do on a particular machine. 
This information is so neces- 
sary and so important that all 

major bulletin-board services 
have subgroups for all the ma- 
jor types of computers that 
serve as a forum for their user 
communities. 

There is already a shortage 
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of software professionals who pro- 
gram on dinosaur computers in near- 
dead languages. And the new lan- 
guages (Ada, for example) will 
require several years of hands-on ex- 
perience before there are many peo- 
ple who know how to use them. 

The learning curve for software 
professionals lags behind the ad- 
vancement of technology, for both 
hardware and software, by several 
years. If students use a particular ma- 
chine that is state of the art when 
they are sophomores, by the time 
they are seniors, their knowledge 
will be only somewhat useful. If dy- 
namic programmers stay at one com- 
pany doing one type of program- 
ming on one type of machine with 
one type of operating system for 
more than just a few years, their 
knowledge will become obsolete un- 
less they make a conscious effort to 
be aware of industry changes. 

This problem—the too-rapid ad- 
vancement of technology—is noth- 
ing new. My question to you is, How 
can the community of software pro- 
fessionals keep up with all the ad- 
vances in hardware? It’s difficult 
enough just to read a fine magazine 
such as DDJ every month. But to have 










Tuls EDrer HTS 
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true knowledge of how to program a 
computer well is something that you 
have to learn by doing. We learn 
from our mistakes. 

I feel that the solution is a series of 
hands-on courses for professionals 
on advanced topics in hardware and 
software. I know computer vendors 
offer courses, but usually they are 
priced for the budgets of data pro- 
cessing departments instead of indi- 
viduals and they rarely explain tech- 
niques used by their competitors. 

I’m sure there’s a market for this 
kind of education. Just computer 
consultants and students alone 
would fill enough seats to make it 
worthwhile. And with all those hot 
shots under one roof, the class discus- 
sions would be interesting (if not 
more informative than the lessons). 

Robert Rouse 

479 Northlake Dr., #108 

San Jose, CA 95117 


Dear DDJ, 

I couldn't let Table 1 in Ross Nelson's 
article on the 80386 in the October 
1986 issue go by without a response. 
Although I am no fan of the 8088, he 
has made it look worse than it really 
is. No self-respecting compiler would 
generate the code he listed in 
Table 1. I suggest my Table 1, 
page 12, as a replacement for 
his. 

Tom Pennello 

MetaWare Inc. 

903 Pacific St., Ste. 201 
Santa Cruz, CA 95060 


Drowned in C 

Dear DDJ, 

This is in response to letters in 
October 1986 responding to 
the June 1986 Viewpoint, 
“What's Wrong with C.” 
Though I found these opin- 
ions interesting, I think they 
have all missed what's really 
wrong with C. 

Having known Pascal for 
years, I began learning C less 
than a year ago. In the time 
I’ve known Pascal, I’ve cursed 
BASIC (the favorite program- 
ming language of those who 
don’t know any other lan- 
guage) because it allows pro- 
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i On You? 
When Will It Dawn On You: 

XTC® is a PC programmer's dream come true. Just ask the Ask about our other products 
thousands of programmers who've already awakened to the for the IBM PC and true 
extraordinary features of this world class editor, designed for compatibles. 
the IBM PC and true compatibles. 

Features like XTC’s interpretive macro language that lets PCVMS™ 
you code macros on the fly. And fine-grained multitasking SO ak ea te ees 
you can run macros in the background while you continue sstiine Bans racst MS: DOS 
editing. programs. 

Of course, XTC also lets you code macros in a high level 
language. And with the macro compiler you can write macros PCNX™ 
to check syntax in real time and translate source code from True multitasking, multiuser 
one language to another. Operating system similar to AT&T’s 


; : ; ieeas ; popular UNIX® operating system. 
What's more, DOS compilers, linkers and utilities will run ar 


inside XTC so you don't have to leave the editor to compile 


OPERATING SYSTEM 
and test run your programs. ™ 
’ ; : TOOLBOOX 
If that's not enough, XTC has multiple large windows, 20 Garhblete software construction set 
text buffers, and a host of other powerful features no other that lets you build your own 
editor can offer multitasking, multiuser operating 
systems. 


In brief, you'll find little to compare with the power, flexibility, 
and advanced features that make XTC outshine the 
competition every time. 

So if you're still dreaming about the ultimate editor, wake 


All products priced at $99 
with source code included. 


up. It could be right before your eyes. DEALER INQUIRIES WELCOME 
e Foreign orders inquire about shipping. 
XTC. From Wendin. Only $99. addtional item for shipping handing, and 


insurance. We accept Visa/MC, American 
Express, COD, and Bank Drafts drawn on U.S. 


ORDER HOTLINE Banks. 


Washington residents add 7.8% sales tax. 


(509) 624-8088 MS is a trademark of Microsoft, PC-DOS is a 


(= BE = ® trademark of IBM. UNIX is a trademark of AT&T. 
SF sapetinges = sae VAX/VMS is a registered trademark of Digital 
3 : 7m FS 327 E PACIFIC (MON.-FRI., 8-5 PACIFIC TIME) Equipment Corporation. 

Wendin, inc. PCNX, PCVMS, Operating System 


ba he AL’ SPOKANE, WA 99202 SS as 
© Copyright 1986 Wendin, Inc. The people who make quality ee ind Toolbox, and Personal Operating System are 


software tools affordable. trademarks of Wendin, Inc. 
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LETTERS. 


(continued from page 10) 


grammers to make errors that are im- 
possible in most other languages. 
(When typing code into interpreted 
BASICs, you can easily mistype a line 
number, causing that line to be some- 
where else in the program and possi- 
bly erasing a previous line with the 
same number.) While learning C, I 
discovered errors that are unique to 
it, also. Some of these are related to 
the implementation I’ve been using 
(MS-DOS Lattice), but others are a re- 
sult of the C language definition. 

Many of the errors I’ve made relate 
to the almost total lack of type check- 
ing in C. The following code will 
demonstrate: 


int i, ar [10]; 
for (i=0; i+ +;i < 10) 
ar [i] = 0; 


If you don’t see the problem with it 
immediately, you might spend a few 
hours looking at other parts of the 
program, as I did. The for statement 
first sets i to 0, then executes the sec- 
ond statement (i+ +) and exits from 
the loop if its result is 0. The state- 
ment i++ returns a 1, and so the 
loop continues. The body of the for is 
executed, setting ar /1) to 0. Then the 
statement i < 10 is executed (which I 
obviously wanted to be my terminat- 
ing condition), and its value is not 
used. The loop continues while i is 
not 0, which on a compiler that uses 
16-bit integers is 65,536 times. This 
happened because I accidentally 
swapped parts of the for statement, 
and because Boolean values are just 
integers in C, the compiler blindly ac- 
cepted and compiled it. Another 
problem is that the integer array is 
indexed with this value and, because 
of a lack of array bounds checking, 
initializes 131,072 bytes to 0O—much 
more than was desired. Strangely 
enough, my program did not crash, 
but a rather odd thing happened— 
the output to the screen was “‘buff- 
ered,” and nothing would print until 
the internal ‘‘buffer’’ became filled 
with 256 characters. 

Another type checking problem 
has to do with function parameters. 
The compiler I use doesn’t check that 
the parameter types in a function 
definition match those in a function 
call or even whether the number of 
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parameters is the same. I was under 
the impression that this was excus- 
able only in older languages, such as 
FORTRAN, and not in more modern, 


structured languages. The existence 


of separate utilities such as lint to 


check such things tells me that this 


type of error checking was simply 
left out of compiler definitions. 

At least some type checking is done 
in C, though, and it’s with the return 
values of functions. I was getting 
warning messages with functions 
that didn’t return any value. My ini- 
tial kludge fix was to add the state- 
ment return (0); at the end of each 
function, which while satisfying the 
compiler, I presume generated at 
least one extra instruction to set the 
return value, which wasn't even 
used in the function call. But this still 
didn’t fix the warning message for 
function main( ). Then I discovered 
that the void keyword, a new ANSI 
addition to C, is used to define a func- 
tion that returns no value. But this 
still didn’t quite work for me until I 
remembered that a function of type 
other than integer must also be de- 
clared explicitly, either in the calling 
function or as a global. The last time I 
remember something being default 


unless declared otherwise was in > 


FORTRAN, in which variables begin- 
ning with the letters J through N 
were default integer and others were 
default real. As I became more profi- 
cient in FORTRAN (shortly after learn- 
ing Pascal), I started defining all the 
variables in my FORTRAN programs 
explicitly and ignored the defaults. 
This also improved the clarity of my 
variable names. Both Pascal and FOR- 
TRAN allow functions that don't re- 
turn a value, with the keywords Pro- 
cedure and SUBROUTINE as part of the 
original language definitions. And 
Pascal, by not having defaults, 


- 8086 : 






MOV BX, | 
E SHL BX,2 
_ FLD FOO+12[BX] 





| FSORT 


SORT (FOO[I+3}) 


FLD FOO +12[BX] 


Table 1: Suggested replacements for Ross Nelson's implementation of 


doesn’t make programmers learn 
(and possibly forget) extra rules and 
their exceptions. 

One more source of possible errors 
in C involves macro preprocessing, 
specifically macros that look like 
functions. This (and other side ef- 
fects—C seems to have more possible 
side effects than any other language) 
is actually documented in compiler 
manuals. A sample statement looks 
like: 


c = toupper (getchar‘ )); 


in which toupper is defined as a mac- 
ro. When expanded, this line actually 
has more than one call to getchar( ), 
resulting possibly in several charac- 
ters being read when only one was 
wanted. Another aspect of this is that 
toupper( ) could be a macro or a func- 
tion (both are included with Lattice), 
depending on what header files are 
included. If it’s a function, the pre- 
ceding code will work just fine. It's 
not hard to imagine someone porting 
that line of code and, on seeing it, rec- 
ognizing toupper( )as a macro and in- 
cluding a header that defines the 
macro toupper( ) and thus breaking 
something that didn’t need fixing. 

I see the biggest problem with C is 
its growing popularity and thus the 
growing availability of C compilers, 
function libraries, and _ utilities, 
which take efforts away from sup- 
port of other structured languages 
such as Pascal or even something bet- 
ter—the development of yet another 
new language, one that all of us could 
hope would not have such problems. 

Ben Bradley 

Telecorp Systems Inc. 

5825-A Peachtree Corners E 

Norcross, GA 30092 


(continued on page 130) 
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Some Of The Most Famous Faces 
In Software Use Our C Functions 


Our famous customers are a little camera shy. It’s not that 





they are embarrassed by being Essential C Utility Library Functions At A Glance 
users. They just don’t want us shouting their names from e Fastest screen output available. © Disk error trapping 
the roof tops. e Save/Restore color screens in e Determine space available 
1/10 sec. e 40 functions to process 
e Pop-up block cursor menus characters and words 


The prestige of OUD USCIS is not the primary reason to buy Save/Restore windows to disk —@ Insert, delete, extract, index, 
the Essential C Utility Library. The increased speed, or memory translate 





features, and size efficiency of our products are the factors ¢ 50 functions for business : ee ee examples 
that demand their use. Our library contains over 400 graphics See eee 
; e dozens of string formats code 

functions, all © time and date arithmetic e All source code included 
designed with > julian and day-of-week Documentation: 
elegance in mind. @ Ctrl-Break key trapping Thorough, comprehensive, 260 

e Field oriented data entry pages 

e Stuff keyboard buffer Compatible C Compilers: 
However, should e 18 Mouse control functions Microsoft, Lattice, Computer 
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VIEWPOINT 





What’s Wrong with High- 
Level Languages? 
The code accompanying Brian R. An- 
derson’s article “A 68000 Cross As- 
sembler’’ (DDJ, April and May 1986) 
provides an opportunity to criticize 
higher-order languages in general 
and Modula-2 in particular. It is not 
my intention to criticize Anderson. I 
enjoyed his article, and his Modula-2 
code constitutes, at the very least, an 
impressive effort. But the code itself, 
precisely consistent with the teach- 
ings of our leading authorities, re- 
veals deficiencies that cannot be al- 
lowed to pass. 

The code in Code Example 1, right, 
is a fragment from Anderson’s List- 
ing Sixteen. I have left out comments 


and some details not relevant to my 


by Mike Suman 


points. The last seven lines of code 
are followed by 116 similar entries, 
ending with 


INC (i); 
WITH Table68kl[i] DO 
Mnemonic := ‘“‘UNLK”’; 
Op := {14, 11, 10, 9, 6, 4, 3}; 
AddrModeA := ModeA {Ry02}; 
AddrModeB := ModeB { }; 
END; 


There then follows code to write out 
the array and finally the line 


Mike Suman, 332 Sturtevant Dr., Sier- 
ra Madre, CA 91024. Mike started 
working with computers in 1949. He 
has been the director of research and 
development at an aerospace firm and 
is currently writing a book about 
computers. 
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END InitOperationCodes. 


First, let me comment on a minor 
matter of style over which some lead- 
ing programmers have poured major 
words. In this program fragment, the 
constants FIRST and LAST have been 
clearly set out in the beginning. As 
the matter is taught, this is supposed 
to make the program clearer, more 
immediately evident, and easier to 
modify. 

But the only place in which FIRST 
and LAST are used is in the phrase 
Table68K [FIRST .. LAST] OF TableRe- 
cord. This is surely not more immedi- 
ately evident than saying Table68K [1 

. 118] OF TableRecord. And no one 
can maintain that it is really easier, or 
safer, to change values in an early 
definition than it is to change them in 
the only place in which they are used 
later, when it is obvious what the ef- 
fects of the change are going to be. 

As a general principle, common 
sense and literary history both argue 


"MODULE Ini tOperationCodes 
CONST 
FIRST = 1; 


that it seldom simplifies or clarifies 
complex matters to introduce new 
names for things that are already 
named, as are numbers, or to sepa- 
rate numerics from the phrases that 
reference them. You don't make ‘2 
plus 2 equals 4” clearer by saying “x 
is 2 and y is 4 and x plus x equals y.”’ 
The issue is small, but the point is 
large: We do not tolerate this kind of 
turgid excess in writing; why then do 
we force it in programming? 

Having begun on a small point, let 
me move to a larger one. Imagine 
that you were handed a list of grocer- 
ies that had been ‘‘carefully arranged 
for clarity’’: 


Item potatoes 
Quantity 3.2 Ibs 
Unit cost $0.65/Ib 
Total cost $2.08 
Item oranges 
Quantity 5 lbs 
Unit cost $0.88/lb 
(continued on page 132) 


[] OF TableRecord: 


oS 
 - _ 
wa rable68K[ i] bo 
_ | Mnemonic := "ABCD"; 

— Op :=(15,14,8): 
AddrModeA : = ModeA{Rx911, 
So _ AddrModeB : = ModeB{ }; 


wea Table6sx[i ] DO 

_ Mnemonic := "ADD"; 

ee (1 S 14 : 12}; 

| AddrModeA : = ModeA{OpM68D};: 
| AddrModeB : = ModeB{OpEA0Sy}; 


RegMem3, Ry02}; 





Code Example 1: Fragment of code from Listing Sixteen, DDJ, May 1986 
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ARTICLES 


Text Editors: 
In Matters of 


Taste... | 


by Levi Thomas and Nick T 


“Editors? You wanna talk edi- 
tors? How’s about something 
trivial like life after death, re- 
ligion, or politics?’ —Don 
Watkins, sysop on Compu- 
Serve's IBM NET. 


History 

“The first interactive editor I 
ever used was Expensive Tyne whic on the PDP-1 at MIT 
(yeah, the one we played Spacewar on).'’—Dennis Broth- 
ers, author of Mactep and MicroPhone 


ack in the good old days, people seldom had 
B much choice when it came to text editors. (How 
many of you remember TECO or Expensive Type- 
writer? How about keypunches and Hollerith cards?) 
There wasn't a lot you could do with a simple keyboard 
and a hard-copy printer. Editing was almost exclusively 
line-oriented, and the only way to get an idea of what the 
text actually looked like was to list a section of the file 
explicitly, usually by specifying a range of line numbers. 
Frequently the editing commands were cryptic and hard 
to learn, such as 34LSj10U20D$$ (an actual command 
string from an early line editor). Things have certainly 
changed since those days. CRT screens and mice have 
been invented, and all sorts of user interface discoveries 
have been made. You might think that by now someone 
would have invented an editor so nearly perfect that it 
would set a standard imitated by all the rest—but nope. 
Although the incomprehensible command strings of 
yesterday are gone from the new editors, replaced in 
most cases by sensible logical structures, the old editors 
live on. People still cling to WordStar, with all its hard-to- 


Levi Thomas and Nick Turner, 501 Galveston Dr., Redwood 
City, CA 94063. Levi and Nick are editors for DDJ. 
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‘Which is better? It’s a 


matter of personal 
bias—of taste.’ 









memorize control codes, de- 
spite the barrage of attacks 
from other camps. In fact, 
programmers who admit to 
still using WordStar often get 
the same kind of reception 
as programmers who an- 
nounce that they prefer BA- 
SIC to Pascal. 

So, why do so many of the older, presumably outdated, 
editors still live? Well, the “if it’s not broken, don't fix it”’ 
philosophy accounts for it somewhat—some folks are 
quite happy with their “outdated” editors and ignore the 
“if it’s newer it must be better” attitude that is so preva- 
lent in this industry. But more often imprinting seems to 
have a lot to do with it. 


Old Workhorses and Baby Ducks 
“T still use WordStar in nondocument mode when editing 
programs. OK, so kill me.""—Ray Duncan, DDJ columnist 


Like ducklings that adopt the first moving object they 
see as a mother, programmers often adopt the first editor 
they learn as the model of what an editor is and should 
be. Once you've learned an editor, once it is “burned into 
your brain,” it may not be worth the effort to learn anoth- 
er (or, more to the point, to unlearn the first editor) no 
matter how comparatively easy it is or how many “‘neat”’ 
features it has. This learning process is especially frustrat- 
ing because ‘everything you know is wrong’ '—you are 
accustomed to being in control of the process, of not hav- 
ing to think about the steps that stand between you and 
what you want done. When you learn a different editor, 
that transparent process becomes pitifully opaque. What 
a gumption trap! You see a similar occurrence when writ- 
ers try to learn to use a word processor. Even though the 
rewards are enormous, the first few hours or days are 
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hell. Your concentration is constantly interrupted by the 
mundane mechanics of word processing, and you feel as 
though there is suddenly a great barrier between you and 
your work—a barrier you didn’t notice when you used 
the typewriter. So once you become comfortable with a 
word processor (or an editor), you will be pretty reluctant 
to start over again. 


Buddy Can You Paradigm? 

There seems to be far more disagreement than agree- 
ment when it comes to text editors. The dissent runs deep, 
and it’s not just a matter of taste (although that certainly 
enters into it as well). Not only are there different ideals 
for different tasks, but also individual style has a major 
impact. Sometimes it seems there are as many schools of 
thought as there are programmers. And programmers do 
tend to be adamant about their likes and dislikes in this 
matter. 


What Do We Agree On? 

There are some features we all seem to agree are vitally 
important in a “good” editor. These are the factors that 
apply to all editing situations, on all systems... and they 
are few. 


Speed 

“An editor must be fast. If it’s not blindingly fast in screen 
updates (or at least as fast as possible ), I will probably put 
my fist through the CRT screen after the 1,793th line of code 
at 1 A.M. in the morning.’’—Darry] Okahata, programmer 


No one likes to wait for anything, especially when star- 
ing at a computer screen. If an editor pauses for more 
than a fraction of a second for any reason, programmers 
often perceive it as a serious flaw. 

Today’s editors use advanced techniques such as the 
Boyer-Moore string search, hashing tables, and RAM 
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caches to speed up performance. More RAM has also 
meant that entire files can often be held in memory, 
whereas before they had to be paged or sometimes could 
not be edited at all. 


Features 

Many of today’s editors are packed with sophisticated 
features—some of which are seldom really needed. Al- 
though it is possible for an editor to be so feature-laden 
that it becomes cumbersome and difficult to learn, pro- 
grammers do agree that that an editor must have a basic 
set of powerful functions. Just what that set of functions 
might include is a source of much debate. 


User Interface 

“An editor is something you really curl up with. If two edi- 
tors have the same features, you Te going to go with the one 
that ‘feels’ right. It’s like professional musicians are about 
their instruments ...some choose a Gibson Humming- 
bird while others may prefer a Martin. Which is better? It’s 
a matter of personal bias—of taste.’’—Bob Wallace, author 
of PC Write 


An important and highly subjective issue is ease of use. 
The best editor is transparent—its use becomes so natural 
that you forget it’s there. Ease of use is a difficult thing to 
measure, but some traits are worth examining. For exam- 
ple, editors that are “modeless’’—that is, the program 
rather than the human using it keeps track of the mode— 
have generally become accepted as superior to ones that 
require humans to keep track. Of course, there is still a lot 
of disagreement as to how this is best implemented. 

But almost any editor is easy to use once you've mas- 
tered its syntax and commands. Just what kind of learn- 
ing curve you are willing to tackle is the big question. 
Often the sweat and frustration of learning an editor with 
complicated arcane commmands is the price of gaining a 
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TEXT EDITORS 
(continued from page 17) 


high degree of control over the editing process—a price 
many programmers are willing to pay. 

Roy LeBan, a programmer at Ann Arbor Softworks, 
says: “It doesn’t matter how long it takes to learn an edi- 
tor, as long as it does what I want it to once I've learned it.” 

Dennis Brothers says: ‘‘My all time favorite editor is 
TECO, for emotional rather than rational reasons. It’s an 
absolute bitch to learn to use, but once you've learned it, 
boy, can you make it dance!” 

Dennis Allison, cofounder of the People’s Computer 
Company (and DDJ), says this about his favorite editor, 
Emacs: “It’s hard to remember that meta-Control-X does 
such and such, but once you learn your way around you 
can do all sorts of things. You can, for instance, swap 
every other word with a single editing command.” 

Fortunately, a variety of editors available today are 
easy to use and require a lot less time and effort to learn 
than the earlier editors. In many cases there is a trade-off 
in terms of features, but often this does not hinder the 
editor’s usefulness for most jobs. These editors are a wel- 
come alternative for most programmers, particularly 
those who take umbrage about complicated, counter-in- 
tuitive command strings. 

Alex Pournelle of Workman and Associates puts it suc- 
cinctly: “I might adopt Unix if it had an editor that didn’t 
make me want to throw the terminal through the wall 


Wish List: The 


We asked some programmers to list the features they 
would like to see in the ultimate editor and got many 
good, if not definitive, responses. This list came from 
Chris Dunford. It’s important to realize that these are (and 
must be) personal opinions. Value judgments are all im- 
portant when evaluating editors, and your own experi- 
ence may be vastly different. Feel free to make up a list of 
your own and send us a copy—we'd be interested to hear 
more from our readers on this topic. | 


Must Haves 

e Line orientation. 

¢ Reconfigurable keyboard. 

¢ Macros that must be able to make decisions, not just 
remember keystroke sequences, and/or programming 
language. Must be able to assign macros to keys. 

¢ Line/block-move/copy/delete (one-dimensional). Op- 


tional two-dimensional blocks—both character stream 
and arbitrary-rectangle blocks. 


* Global search/replace, case-insensitive option, with 
wildcards. Search/replace should be restrictable to speci- 
fied portions of the text, including column orientation 
(replace foo with boo over lines n-m from columns x-y). 
¢ Shell to operating system. 

¢ No menus, or at least the ability to run in command 
mode and bypass menus. Command mode should not just 
be obscure keystrokes. 

¢ Multifile capability with interfile operations (for exam- 
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when I used it... 
it’s a close race.” 


I'd rather use vi than goose quills, but 


WYSIWYG vs. Straight ASCII 

“Why would I need WYSIWYG to edit a program? If it does 
anything but edit straight ASCII, it’s not for program- 
mers. ~ 





One of the most recent developments in text editors has 
been the “what you see is what you get’ philosophy, 
which maintains that what’s on the screen should be as 
close as possible to the exact appearance of the text when 
it’s output onto paper. With newer high-resolution 
graphics screens, this approach has become increasingly 
feasible. WYSIWYG does have its merits, especially when 
you re aiming for high-quality hard copy. There is, how- 
ever, a price to pay. The processing power and memory 
required for WYSIWYG editing frequently result in editors 
that are too slow and cumbersome for a large number of 
users. 

The WYSIWYG approach has been married to what 
Steve Jasik, author of MacNosy, refers to as the “point and 
grunt interface’’—that is, the mouse and pointer method. 
This has perhaps been the most revolutionary change in 
text editing on personal computers, but it’s also been one 
of the most controversial ones. Not only does the heavily 
graphical WYSIWYG style slow down the editor, but also 
the mouse itself is seen by some as an unnecessary en- 
cumbrance. These people object to the need to move their 


Ultimate Editor 


ple, move text from one file to another and peor cate 
ation x on all files) for at least six files. oS 
¢ Tab stops user-definable, and the option to use babe com- 
pression when writing to disk. 

¢ Optional auto-indent (OK if done via macro). 

¢ Internal operations must be fast. 

¢ Must have “go to line n” or “go to current line + n” and 
be able to mark locations in the file for gotos. 

¢ Some undo capability—for example, “restore last n 
lines that were altered.” 

¢ Read/write blocks from disk (for example, insert file x 
at cursor position; write marked block to disk file y). 


Not Necessary for Everybody 

¢ Multiwindow operations with configurable window 
sizes (should be capable of both top-to-bottom and side-by- 
side windows). 

¢ Block left/right shifts. 

¢ Text overlay operations. 


That’d Be Nice, but I Can Live Without It 

¢ Edit files larger than memory. 

¢ Some optional word processing features: line center, 
paragraph reformatting, case conversions, ability to tag 
groups of lines. 
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TEXT EDITORS 
(continued from page 18) 


hand frequently from the mouse to the keyboard and 
back. 

And then there are those who prefer to have it both 
ways. Dennis Brothers says: ‘‘ My workhorse editor these 
days is the Macintosh Programmer's Workshop (MPW) 
shell. It functions as both an editor and the command 
language interface for MPW, with all the advantages of 
both a Mac-like ‘point and click’ system and a program- 
mable, command-oriented editor. You ought to see me 
fumbling for the mouse when I have to edit something on 
are 

The straight (non-WYSIWYG) text editors seem to fall into 
two categories. On one hand, you have the WordStar- 
style editors, which use lots of special control characters 
to add power and speed but sacrifice simplicity (and usu- 
ally use “weird”’ file formats that can’t be read by any 
other editor without some sort of conversion). On the 
other hand, you have straight ASCII editors such as XY- 
Write, PC Write, and Apple's MDs editor, which always 
keep the text in its purest form and generally display 
every single character of the file on the screen, including 
control characters. This is very useful when uploading 
files to computer networks or writing something that will 
be sent to a typesetter. Such editors often have a com- 
mand line that is separate from the text window or a 
menu bar that fills the same function. 


Kibitz Mode 

“The so-called syntax checking editors are good for about 
ten minutes, then you learn that only the people that spec’ed 
them actually code that way.’’—Don Watkins 


In the last few years a new breed of editor has sprung 
up. These new editors are supposed to ease the job of 


software designers, chiefly by performing real-time syn- 
tax checking of the source file being edited. They tend to 
be very specialized, requiring a different version for each 
particular dialect of a language. These langage-oriented 
editors might be great for relatively inexperienced pro- 
grammers, who can often save a great deal of debug time 
by doing a syntax check without even leaving the editor. 
But in our experience, expert programmers tend to pre- 
fer the simplicity of a straight ASCII editor. 

Chris Dunford, software author and a sysop on IBM NET, 
says: ‘The current smart editors are so restricting that it’s 
like wearing a straightjacket. I have a friend who calls 
them ‘Nazi’ editors. They tell you what you can and can't 
do, and that’s the wrong attitude. A smart editor should 
be one that watches over my shoulder while I use it free 
form (that is, just like I would use a dumb editor) and 
figures out what I am doing and does helpful things— 
[HAL-like voice:] Dave, I don’t see a declaration of that vari- 
able you just used. Would you like me to declare it for 
you?—But if I want to do something it thinks might be 
wrong, well, by God it’s gonna let me do it. Let’s face it. 
With the current crop of smart editors, you have to tell 
them exactly what you re about to do. How smart is that?” 

Again, for programmers who prefer using one editor 
for all their work, whether it’s source code or documen- 
tation, this kind of editor is not a viable option. There 
seems to be another disadvantage as well. Dennis Allison 
mentions a syntax editor called Program Synthesizer that 
was at one time used at Cornell University: “‘[It] would not 
let you write a bad program. When the students tried to 
write a program using Emacs, they couldn't write one 
that worked.” Of course, Allison also notes that he likes a 
couple of the syntax-driven editors...if the syntax- 
check mode can be turned off. 


Do What I Say 
An issue that is especially pertinent to programmers is 





On-Line Editing 


With the increase of telecomputing traffic in recent 
years, another important editing issue has arisen. At first, 
there was little need for on-line text editing. Messages 
were usually short and concise, mainly because on-line 
time was expensive. Now, though, electronic mail has be- 
come more and more sophisticated, and with it has come 
the need for quality on-line editors. The problem, simply 
stated, is that there is no standard for any high-level on- 
line interface. The current default for almost all systems 
is something called TTY, a relic from the days when all 
terminals were hard-copy printers. Under the TTY inter- 
face, there is no way to go back to a previous line and 
change it. Once something is printed, it’s immutable. So 
any editors have to be similar to the old TECO style. Given 
the TTY constraints, an admirable amount of progress has 
nonetheless been made in on-line editors. Several gener- 
ally accepted standards have evolved for the command 
interface, and on-line editors today seem far more usable 
than the old TTY editors. 

The final solution to the on-line problem really comes 
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in two forms: the first, and perhaps most obvious, is to 
edit the information off-line and then upload it to the on- 
line system in one pass. The other solution is more techni- 
cally difficult but offers more power in the long run. It is 
to install a front-end program at the user end that imple- 
ments a quality, full-screen editing interface and uses a 
defined protocol to send data back to the host. The main 
advantage of this over off-line editing is that the host’s full 
database can be made available interactively during such | 
an edit. ao 


Editing for Uploading | 

Here the most obvious problem is compatibility —because 
you don't know much about the destination system, often 
not even what kind of computer it will be, you must usu- 
ally send a completely clean ASCII file. Some front-end 
packages for the larger information services include their 
own off-line editors; others include a way to read in a text 
file and send it. In both cases the text is likely to be quite 
clean. 
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programmability. Some editors allow you to construct 
macros that substitute a whole chain of commands for 
one simple command (or keystroke). That’s the first step. 
Then there are editors that allow you to create minipro- 
grams, complete with looping control structures and 
if... then statements. Beyond that you have editors that 
can be interfaced to custom-designed program modules, 
written in C, assembly language, or some other language. 
The ultimate in programmability is perhaps best ex- 
pressed by Dennis Allison at last year’s Hackers Confer- 
ence: ‘‘Just give me the source code.”’ 

Programmers tend to prefer programmability some- 
what more than typical users do, but even among pro- 
grammers, there's a wide range of preferences about this 
feature, too. Some go so far as to write their own editors, 
whereas others prefer not to be presented with so many 
choices in editor configuration, preferring to learn a giv- 
en set of commands and to get on with the job at hand. 


The Ultimate Editor? 

Many programmers, unsatisfied with the state of the art, 
have created their own answers. Jef Raskin of Informa- 
tion Appliance Inc. has invented a special interface called 
the SwyftCard (see DDJ, June 1986, for a review). 

Bob Wallace has this to say about the ultimate editor: 
“There are some identifiably different approaches that 
people have to the world in general—some people are 
visually oriented; others respond to things more in terms 
of touch, spatial relationships, or sound. The thing about 
text editors and word processors is that there is room for 
all these user interfaces, and there is no reason why one 
editor can't be accessible from more than one approach.” 


Summing It Up 

When asked to give his views on text editors, former DDJ 
columnist Dave Cortesi deftly sidestepped specifics and 
instead gave us the following parable. 

“IBM has this big internal network, VNET, that every- 
body uses to swap messages and files. And there is, or 
was, a newsletter, VNET News, distributed to hundreds of 
users around VNET each month. About this time there 
was a great proliferation of editor programs around IBM; 
everybody had their pet editor and wouldn't look at any- 
body else’s. The NIH (not invented here) factor was fierce. 

‘‘So I was young and stupid, and I wrote a letter to the 
editor of VNET News, saying essentially, ‘It's all malarky. 
We don't need any more editors, let’s quit experimenting 
with these trivial variations and use (the editor I pre- 
ferred at the time.’ 

‘‘Nobody could agree on the best editor, but there was 
one thing that got universal agreement: I had the wrong 
attitude, and the one important thing was to keep experi- 
menting. Boy, did I get rebutted! From which I learned, 
never discuss religion, sex, or editors with anybody—es- 
pecially editors.” 


DDJ 
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Wik ES 


More Common Lisp features in less space 
for less money than any other IBM-PC lisp. 


m@ MSDOS portable 

@ Bignums, 8087 support 

@ Multidimensional arrays 

@ Full Common Lisp package system 

@ Full set of control primitives. 

@ Keyword parameters, macros 

@ Save/restore full environments for speed 


M@ STEP, TRACE, BREAK, DEBUG, ADVISE, 
APROPOS 


@ Roll-out frees space for invoking MSDOS 
commands 


lQCLISP PACKAGE $300. 





fa Integral Quality 





P.O. Box 31970 
Seattle, Washington 98103 
(206) 527-2918 


UES 


Now with a compiler. 


m@ Compiler comes with source 


m@ Compiler cuts execution time 50-75%, 
program size 60-80% 


m@ Multidimensional arrays 

@ Floating point, bignums, 8087 support 
@ Macros 

@ Color graphics 

@ Multiple display windows 

m Assembly language interface 

w Available for IBM PC or TI-PRO 


lQLISP PACKAGE $270. 


INCLUDES COMPILER 


@ VISA and Mastercard accepted 
@ Generous update policy 
@ Attractive educational license 
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Announcing Magic PC —the first breakthrough for database applications developers in over 20 years: 


Now you can develop professional applications 
1000 % faster than your 4GL or DBMS, totally 
free from programming, commands and syntax! 


AKER Corp. MAGIC PC 


13.Order Entry Screen 
Execution Definition 


Description 


A Magic PC program looks as simple as this. To design an application you quickly fill-in menu-driven decision 
tables without having to write a single line of code. For example, just by highlighting the Execute Program 
operation on this screen and also highlighting the Item List program in the Program Menu, you tell Magic 
PC to pop-up the Item List window shown in the adjacent screen, when the end-user hits the Zoom key. 


Task Definition Pe oh at oe 
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Description 


User Exit 


Order No: 9399 
Order Date: 99/99/99 


Stock Status 


In Stock: -999:;,999 


Total Orders: 
Avail to Sell: 





Order Entry 
Customer No: 99999 


Address: 
AAAAAAAAAAAAAAAAAAAA 


Total Price 


site ee ie ke BRS I See ee eb oe ey 


Item List 


Order Sum 
Discount 

Sub-Total 
< Sales Tax ; ; 
-999,999 ——— 


Magic PC gives your end-user the power to harness and retrieve data instantly, without any commands or 
syntax because at runtime you already have built-in options to Add, Delete, Modify, Query and get on-the- 
spot ad-hoc information simply by highlighting selections from menus. Dats validation, security and 
error-checking are done automatically for you by Magic PC without programming. 





Who needs another DBMS? 

At last, Magic PC gives you the ultimate applications 
design tool, far ahead of 4GL’s, DBMS and Applica- 
tion Generators. 

Magic PC breaks through the language barrier with 
the revolutionary Un-Language concept: 

NO PROGRAMMING, COMMANDS OR 
SYNTAX! 


Free yourself from your programming language 

Magic PC makes you, the professional, completely 
free from the drudgery of procedural programming. No 
more cryptic commands, syntax or unforgiving 
procedural structures, because Magic PC does all the 
programming automatically. There’s your competitive 
edge. The rest is up to you... 


The Professional Choice 

Already an international success, Magic PC is a profit 
maker and career booster for DP Consultants, System 
Integrators, VARs, MIS professionals, System Analysts, 
Programmer Analysts and Software Engineers. If you 
design PC applications professionally, you can't afford 
not to Un-Language now. 


IBM France: “IBM encourages this introduction and 
can not help but salute such evolution. . ” 


Israeli Air Force: “We were convinced that it was not 
possible to have a design tool powerful enough to im- 
plement real-life applications without a programming 
language. Magic PC changed our mind. . ” 


Jeff Duntemann, PC Tech Journal: “It’s probably 
the best integrated database applications and screen 
generator that I have ever seen. . .very smooth system, 
and smoothness comes at a premium these days. . ” 


The Magic PC Secret 

You’re so much more productive with Magic PC 
because there is absolutely no programming to slow 
you down. You design a Magic PC application by simp- 
ly filling-in the Data Dictionary Tables (Files, Fields, 
Keys) and the Task Description Tables (Operations and 
Expressions). 

Only 13 design Operations harness the power of 
Magic PC. Operations are specific enough to eliminate 
the need for tiresome syntax, yet elastic enough to pro- 
duce robust custom applications. Use the Operations 
to describe what you want and Magic PC makes it 
happen. It’s that simple. 


Make Task nesting power available with a single 
Execute Task Operation. This powerful instruction 
triggers Magic PC to execute and display additional 
tasks or even external applications through Window 
Zooms. The 3-dimensional effect of Window Zoom- 
ing lets you probe deep into your application through 
nested windows and manipulate the data underneath. 

You describe a Magic PC Task or Program (com- 
posite Tasks) by filling your system analysis flow into 
the Task Description Tables. Choose the participating 
Data View, and Magic PC executes your desired Opera- 
tions. You interface with the Tables by highlighting your 
selections from pop-up menu-driven windows. There's 
nothing to edit except your headings. 

You're not confined to any particular design sequence 
as you are with most procedural languages. You can 
enter and change any Table spontaneously, on the fly, 
as ideas come to mind and Magic PC automatically 
maintains the application integrity. 

A Magic Inference Engine automatically or- 
chestrates your Task Description Tables into a single 
file of internal Knowledge Base Rules for optimum, 
bug-free performance. Knowledge Base Rules are ex- 
ecuted by the Magic Run engine for stand-alone run- 
time operation, or by the Magic Lan engine for 
unrestricted Novell network sharing. You're free to 
design the Knowledge Base without worrying about the 
internal structure. 


Discover fast, 
language-free 
programming 


at no risk 
for only $ 
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See for yourself how fast you can program language- 
free applications with our low-cost limited offer. 

You'll get the full Magic PC software unprotected and 
limited to 100 records and 450 page documentation 
complete with a free Order Entry sample application. 
You'll also get our free telephone support for 90 days! 

And your $19.95 will be credited towards the full $695 
Magic PC purchase price. Even if you don't buy Magic 
PC right away, keep your $19.95 Magic PC Trial as your 
application prototyping tool at this bargain price. 


Our No-Risk Guarantee! 


You have our no-risk 30-day money-back guarantee: 
if you’re not completely satisfied for any reason, even 
Magic PC Trial for $19.95, send it back for a refund. 
Order now while supply lasts 


Call this toll free number now with your Visa, 
MasterCard or American Express for immediate 
delivery, or send the Order Coupon below today to Aker. 


1-800-345-MAGIC 
in CA call 714-250-1718 


Yes, please rush me: 








LJ Magic PC Trial $ 19.95 
L] Magic PC $695 .00 
Add shipping $ 5.00 
In CA 6% tax $ 
Prices valid in US only. Total $ 
Ship to: 
Address: 
City/ST/Zip: 
Phone: 





== 
wie 


Aker Corp. 18007 Skypark Circle B2, Irvine, CA 92714 
(714) 250-1718, Elec. Mail Dialcom 41:AKR 001 Telex 4931184 


AKR UI OEM and VAR inquiries are welcome. 


Min. requirements PC DOS 2.0. IBM PC or 100% compatible with 512K and hard disk. 
©1986 Aker Corp. Printed 1/87 Trademarks: Magic PC. Un-Language. Window Zoom, 
Magic Run, Magic LAN and Magic PC Trial are trademarks of Aker Corp., IBM PC 
and PC-DOS are trademarks of IBM Corp., Novell is a trademark of Novell Inc. 


“Microportis 
the fastest path 


between 
realUNIX° 


System V 
and you.” 


Dimitri Rotow runs a company 
on the go. He has little time 
for hardware or software that 

doesnt do the ultimate job for 

his company's customers. 


Two months ago he assessed 
three readily-available UNIX 
and UNIX-like) operating 
systems. After evaluating 
pricing, packaging, 
documentation, quality, 
service, manufacturer's 
support, compatibility, third- 
party support, features, 
conformity and performance, 
he and his VP of engineering 
came to one conclusion: “To 
praise Microport is to praise 
the AT&I/Intel joint venture, 
because Microport’s version 
of UNIX System V is virtually 
identical. However, more value 
is received since more 
middlemen are removed— 
that’s much closer to buying 
direct and selling direct.’ 


Bell Technologies’ customers 
appreciate real value plus real 
System V. If youre an OEM, a 
reseller, an end-user or simply 
Curious about our product— 
call us today and see what all 
the endorsements are about. 


Microport Systems, Inc. 
10 Victor Square 
Scotts Valley, CA 95066 


408/438-UNIX (438-8649, local) 
800/822-UNIX (Inside California) 
800/722-UNIX (Outside California) 
FAX: 408/438-2511 
Telex: 249554 
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omputers and controllers us- 
Cc ing the 6502 CPU often de- 

mand efficient use of both 
processing time and memory space. 
With an address space of only 64K, 
data and code space efficiency can be 
critical. Moreover, though advance- 
ments in these 6502 systems have al- 


lowed the use of high-level lan- L | oo 
next instruction, as on most comput- 


guages, there will always be a need 
for fast subroutines and _ tight 
programs. 

This article is a result of writing 
code for an Atari VCS 2600 game unit 
that had only 128 bytes of RAM and 8K 
of ROM. Because of the limited graph- 
ics hardware, all processing was in 
real time with cycles counted. Sever- 
al of the hacks and tips presented 
here are also transferable to other 
microprocessors. Many of the tips 
are appropriate to any true real-time 
system—that is, any system where 
real-time is measured in very small 
fractions of a second. My 6502 experi- 
ence has been helpful in finding 
ways to crunch memory require- 
ments and timing on the Intel 8086 
and 80286. 

In short, this article is a collection 
of my favorite hacks for the 6502. A 
fair amount of 6502 code is included, 
so the next section gives a brief intro- 
duction to the 6502. If you've pro- 
grammed the 6502 extensively, 
you've probably been forced to 
memorize the instruction set in hex, 
so perhaps you should skip ahead. 


The 6502 
The 6502 has only five registers. The 
instruction pointer (JP) points to the 
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by Mark S. Ackerman 


6502 Hacks 


| Basic Hacks 








ers, and is not directly setable by the 
user. The accumulator (A) is the main 
register, and it is the only register 
with full arithmetic-logic unit (ALU) 
functionality. The two index regis- 
ters, X and Y, are used for indexed 
addressing. The stack pointer (S) 
points to the top of the stack. 

The 6502 also has a nonregular in- 
struction set. For example, the S reg- 
ister can be set only from the X regis- 
ter using the TSX (transfer S register 
to X register) or TXS (yep—transfer X 
to S). Moreover, if you want to trans- 
fer a value between the X and Y regis- 
ters, you must transfer through the 
accumulator or through memory. 
For example, a typical sequence 
might be: 


TXA 
TAY 


;tfr X to accumulator 
‘tfr accum to Y 


The 6502 also has several flags. The 
important ones are 


‘the negative flag (or minus flag), 
which is set when loading or doing 
ALU functions 

¢ the zero flag, which is set in similar 
situations 

¢ the carry flag, which is set in arith- 
metic operations 

¢ the overflow flag, which is also set 
in arithmetic operations 


There are also flags for enabling in- 
terrupts and for decimal mode. 





_| One of the simplest ways to save code 
| space is at initialization time. The fol- 
| lowing code, for example, might be 


used to initialize a few variables: 

LDA #0 ‘load accumulator 
with 0 

STA FIRST — ;store accum in FIRST 

LDA #2 

STA SECOND 

LDA #1 

STA THIRD 

LDA #40 

STA FOURTH 

LDA #5 

STA FIFTH 


This requires 20 bytes (2 per instruc- 
tion) and a minimum of 25 cycles (2 
per load immediate and 3 per store). 
The following would be cheaper: 


LDX #0 »X register =0 

STX FIRST — ;store X in FIRST 

STX FOURTH 

INX sinc X by 1(X now=1) 
STX THIRD 

INX ‘xX now=2 

STX SECOND 

LDX #45 ‘Xnow=5 

STX FIFTH 


This takes two cycles and 4 bytes less; 
you save 1 byte each per JNX instruc- 
tion. An even cheaper result can be 
obtained by: 


LDA 45 ;accumulator=5 
STA FIFTH — ;store accum in FIFTH 
LSR A shift right -- 
‘(acc now = 2) 
STA SECOND 
tok A ;acc now $= 1 
STA THIRD 
LSR A ;acc NOW =0 
STA FIRST 
STA FOURTH 
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This last example uses the same num- 
ber of cycles, 23, but costs only 15 
bytes—a reduction of 25 percent over 
the first example. You might object 
that this is not ‘clean code.” Without 
adequate documentation, it may be 
less than clear, but it does save bytes 
and cycles. 

This example also demonstrates a 
reduction principle: general reduc- 
tion algorithms, such as using the in- 
dex registers to increment instead of 
loading the accumulator with imme- 
diate values, can produce significant 
savings. The best savings, however, 
require a sharp eye for special 
situations. 

Incidentally, if you use a loop dur- 
ing initialization, remember that the 
counter register contains —1 or 0 at 
the end of the loop. You can use this 
by-product for further savings: 


LDA #$C0 
LDX #7 
LPSTA TABLE2,X ;put acc at TABLE2 


; plus offset in X 


DEX ‘decrement X 
BPL LP _ ;loop while X is 
; positive (i.e., > 0) 
INX ;at end of loop, 
- increment X 
STX ZERO ;store X (=O) in ZERO 


Zero-Page Savings 

The 6502's first 256 bytes of memory, 
zero page, have a unique property. 
Reads from and writes to zero page, 
including indexed I/O using only the 
X register, save a cycle and a byte. 
Frequently used variables, or memo- 
ry registers, should be kept in this 
portion of RAM. 

It is critical when addressing this 
memory to use the X register. Using 
the Y register for indexed addressing 
such as this: 


LDA ZEROPAGE,Y 


is actually an absolute addressed in- 
struction—that is, the 6502 ignores 
whether the ZEROPAGE location is in 
zero page or not. The Y-indexed in- 
struction uses an additional cycle for 
the fetch and a byte for the page 
address. 


Using Left-Over Registers 

Use all the registers. The index regis- 
ters should be used for intermediate 
results. The following nonsense ex- 
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ample assumes that the stack is at 
SFF: 


LDX LOOP_COUNT 


LOOP TXS ;store loop ct, 
; freeing X 
LDA WHATEVER 
LSR A 
TAX ‘store acc/2 
LSR A 
LSR A 
AND #407 _ ;get low 3 bits 
TAY ‘get offset of TABLE 
TXA ;restore acc 
LDX TABLE,Y — ;new index for X 
ORA $80 ;OR $80 to low 3 bits 
STA STORE,X  ;put at STORE plus 
- offset from TABLE+ Y 

TSX ;restore loop counter 
DEX ;dec loop counter 
BPL LOOP’ ;loop if counter >=0 
TXS ;restore stack ptr 


Note that the TXS instruction can be 
used only if interrupts have been dis- 
abled. A temporary zero-page vari- 
able could have been used to replace 
the TXS and TSx at a cost of two cycles 
per loop execution and 1 byte. 


Stack-Related Savings 

It is often cheaper to place values 
onto the stack than to store them to 
temporary variables. A push (PHA) 
and pull (PLA) take seven cycles and 2 
bytes. A store to zero-page memory 
with a following load takes six cycles 
and 4 bytes; a store to other memory 
takes eight cycles and 6 bytes. 

When doing a substantial amount 
of I/O to temporary variables, it may 
make sense to actually reposition the 
stack pointer. This works only with 
page 1 variables. 


Flags and the Bit Instruction 

Careful use of bit flags can also save 
bytes and cycles substantially. The 
BIT instruction does a nondestructive 
test of a byte in memory. Bit 7 (the 


high-order bit) of the byte is placed in 
the negative flag, and bit 6 is placed in 
the overflow flag. No registers are af- 
fected. 

For this reason, if RAM is limited, 
the two high-order bits of a byte are 
extremely valuable for Booleans. In 
fact, bit7 is valuable because it also 
sets the negative flag upon loading: 


LDA WORD _ ;load acc with WORD 
BPL NOT_SET  ;goif + (bit7=0) 


IS_SET AND #$0F 
TAX 


In addition, the carry flag, which is 
set or cleared in shift operations, can 
be used to store a flag value tempo- 
rarily. In this case, bits 7 and 0 are the 
most valuable. 

If RAM is not limited, then a single 
Boolean in bit0 allows the use of the 
zero flag upon loading. The BIT in- 
struction still cannot be used profit- 
ably unless the Boolean is in bit 7 or 6, 
however. 


More Advanced Hacking 
There are two ways to depend on 
preexisting conditions. The first is to 
assume that the carry bit is either set 
or not set as needed. In the 6502, the 
carry bit signifies just that: a bit is be- 
ing set to indicate the carry. To add 
two 16-bit numbers, then: 


CLC 
LDA 
ADC 
LDA 
ADC 


FIRST_VAR_FIRST_8 
SECOND_VAR_FIRST_8 
FIRST_VAR_SECOND_8 
SECOND_VAR_SECOND_8 


If you know the condition of the car- 
ry, such as in the following sequence 
of instructions: 


LDA FIRST 

CMP #$18 ;comp acc to $18 

BCS BRANCH1 ;goif acc >= $18 
LDA VAR1 

ADC VAR2 


then a CLC can be omitted. Why? Be- 
cause the branch was on a carry set 
condition, the only way into the addi- 
tion would be if the carry were clear. 
In a similar manner, you can assume 
that there is no carry from a previous 
addition. For example, if VAR3 never 
exceeded 16 and VAR4 never exceed- 
ed 5, then the carry will never set. So 
the sequence: 


CLC 
LDA 
ADC 
STA 
LDA 
ADC 


VAR3 
VAR4 
TEMP1 
NEW1 
NEW2 


can be used. The CLC for the second 
addition can be omitted because the 
carry will not be set. This, however, 
reduces the robustness of the code. 
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6502 HACKS 
(continued from page 25) 


Removing clear carries or set car- 
ries—used for subtractions—can 
Save many bytes. You may need to 
use some ingenuity. If the carry is set, 
for example: 


LDA ‘TEMP 
SEC #$FF ‘subtract —1 

you may want to add 1 to TEMP by 
subtracting —1. 


Cheaper Branching 

The second way to use preexisting 
conditions is with branching. If you 
know that a flag will be in a certain 
condition, the appropriate branch in- 
struction can be used for an uncondi- 
tional jump. This will save a byte but 
no cycles in the 6502; the uncondi- 
tional JMP instruction takes 3 bytes 
whereas a conditional branch takes 2 
bytes. Both take three cycles when 
the branch is made. (A conditional 
branch in which no branch is execut- 
ed takes only two cycles.) For exam- 
ple, if the carry is set (perhaps from a 
BIT instruction as ‘below or from a 
subtraction), then the code: 


BCC JUMP_LOC 
NEXT_LOC 


forces an unconditional branch for 
the savings of a byte over a JMP. 

Interestingly, the instruction se- 
quence for a Boolean in bit0: 


LDA YOUR_FLAG 


AND #1 ‘get bitO 
BNE TRUE_SETTING ‘branch on 1 
FALSE_SETTING 

can be replaced by: 


LDA YOUR_FLAG 


LSR A shift bitO into carry 
BCS TRUE_SETTING ;go if set 
FALSE_SETTING 


at a savings of a byte. This is especial- 
ly useful for testing several bit flags in 
a single byte. It also nicely sets the 
carry bit for unconditional branch- 
ing for both branches of an if... else 
structure. 


LDA YOUR_FLAG 
LSR A 
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BCS TRUE_SETTING 
FALSE_SETTING 

some code 

BCC END_IF 
TRUE_SETTING 

some code 
END_IF 


;carry is clear 


Table-Driven Code 

You can make very large savings if 
you can replace code with preset 
data tables. Instead of attempting to 
compute divide-by-17s or sines, for 
example, it may be possible to have a 
table of the results for all expected 
values. For example, instead of com- 
puting MOD7, if the variable will nev- 
er exceed 32, it will be far, far cheap- 
er to have a table: . 


MOD7 DS0,1,2,3,4,5,6 
DS 0,1,2,3... ete. 


Because many of these tables can be 
compressed or merged with other ta- 
bles (as discussed later), the cost in 
bytes is reasonable. This method is 
certainly faster. 

In a similar manner, decision ta- 
bles, game-play paths, or timing deci- 
sions can often be decided prior to 
compilation rather than during exe- 
cution. In games, it is often best to 
store the delta xs and delta ys instead 
of trying to compute sine wave pat- 
terns on the fly. 

In manv cases. vou can use tables to 
speed up operations that are repeat- 
ed often. If, for example, it is neces- 
sary to increment only the bottom 
nybble of a word, a normal addition 
cannot be used because the carry will 
ruin the top nybble. You could write: 


LDA WORD 

AND #$FO — ;get high nybble 

STA TEMP _ ;store temporarily 

LDA WORD 

AND #$0F _ jget the low nybble 
CLO assume worst: clr carry 
ADC #1 ‘add 1 

AND #$0F ;watch for wrap 

ORA TEMP _ ;OR in high nybble 
STA WORD © ;store back out 


This costs 24 cycles and 19 bytes. If 
you had a table: 


NEXTINC DS 1,1,1,1,1,1,1,1 
BS°14:1,1411.1,—15 


the cost could be reduced to 19 cycles 


and 13 bytes: 


LDA WORD 

AND #$0F  jget current low nybble 

TAY ‘index into NEXTINC 

LDA WORD 

CLC ;might not be needed 

ADC NEXTINC,Y ‘add, indexed 
; by current value 

STA WORD 


If this calculation were done in 
many locations in the program, the ta- 
ble would quickly become much 
cheaper than the calculation. Inciden- 
tally, the add instruction could be re- 
placed with a subtract (or even a logi- 
cal OR) instruction. Your choice of 
which instruction to use might de- 
pend on what table you had lying 
around! 


Unrolling Loops 

One large trade-off between time 
and space is in unrolling loops. The 
loop: 


LDA #1 

LDX #4 
LOOP STA LOC,X 

DEX 

BPL LOOP 


outside the loop 


can be changed to: 


LDA #1 

SEA: LOC 
STA. LOG+1 
SFA. LOC+2Z 
SPrA;-LOG3-3 
SFA. .LOC-+-4 


This is more costly in terms of bytes 
(12 bytes vs. 9 bytes), but it is far faster 
(17 cycles vs. 48 cycles). (The loop over- 
head takes 4«2+3) + 12+ 2).) It is of- 
ten surprising how much time can be 
saved by unrolling simple loops. 

It is also possible to combine loops, 
even of different sizes, saving the 
costly loop overhead: 


LDA PICKUP+7 
‘move PICKUP’s contents to TABLE 

STA TABLE+7 

LDA PICKUP+6 

STA TABLE+6 

LDX : #5 

LDY #$80 
LOOP2 LDA PICKUP,X ‘continue the 
; move with loop 
STA TABLE,X 
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Now You Know Why 
BRIEF is BEST 


“If you need a general-purpose PC programming editor, look no 
- Jerry Pournelle, Byte, 12/86 


further. Recommended.” 


The Program 


Editor with 
the BEST 
Features 


Since its introduction, 


BRIEF has been sweep- 
ing programmers off 
their feet. Why? 


Because BRIEF offers the 


features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you've 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘“(BRIEF). . .is quite 
simply the best code 
editor I have seen.”’ 


Solution 


Systems™ 






Compare these features 
with your editor (or any 
other for that matter). 

e FAST 

Full UNDO (N Times) 

e Edit Multiple Large Files 
© Compiler-specific 
support, like auto 
indent, syntax check, 
compile within BRIEF, 
and template editing 
Exit to DOS inside BRIEF 
Uses all Available Memory 
Tutorial 

Repeat Keystroke 
Sequences 

e 15 Minute Learning Time 
Windows (Tiled and 
Pop-up) 


Every Feature You Can Imagine 


e Unlimited File Size 
-(even 2 Meg!) 
e Reconfigurable Keyboard 
® Context Sensitive Help 
e Search for ‘‘regular 
expressions’ 
Mnemonic Key 
Assignments 
Horizontal Scrolling 
Comprehensive Error 
Recovery 


e A Complete Compiled 
Programmable and 
Readable Macro Language 
EGA and Large Display 
Support 


e Adjustable line length 
up to 512 


MONEY-BACK GUARANTEE 
Try BRIEF ($195) for 30 days — If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 


SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061, 617-659-1571 
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Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 


BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 
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IBM Pascal 
Turbo Pascal 
Microsoft C 4.0 
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Actually, it only took him a couple of days with 
Marshal Pascal. Marshal Pascal produces code 
smaller and faster than any other High Order Lan- 
guage on the PC. Period. Even optimized C compil- 
ers don’t come near our performance. And Marshal 
Pascal allows you to generate an assembly lan- 
guage listing of your code, to boot. So it’s not sur- 
prising that some people would fudge the truth. 


However, speed and compactness are not 
enough. Power and ease of use are important, too. 
With Marshal Pascal you may address as much 
memory as your operating system allows and a 
variety of memory models are supported. Among 
the useful extensions incuded are: separate com- 
pilation of modules (both Modula-2 and Pascal 
torms), structured constants and structured function 
values, variable-length string types, overlays, long 
integers and procedural parameters. Our relocat- 
able linker allows you access to the Microsoft family 
of languages and assemblers. The data-flow ana- 
lyzer in the compiler automatically crunches your 
code far better (and with less headaches) than one 
can achieve by manually utilizing register variables. 
We support the Intel 8087-80287 math processors 
inline. If you don’t have the math chip, then 87/287 
emulation is a provided option. We also provide a 
number of compile options, including an optimiza- 
tion by-pass for speedier compiles, I/O “fine- 
tuning,” and constant folds. And a wealth of com- 


pile-time checks will help reduce your debug time 
enormously. 
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It that weren't enough, we also give you a Turbo 
Translator, allowing you to use the hundreds of ap- 
plication and utility programs written in Turbo 
Pascal® that are available in source from the public 
domain. 


Space does not permit us to list all the features 
of Marshal Pascal, all of which are provided USER 
options, not additional COST options. Our compiler 
is not broken apart to make many products out of 
what should be only one good one. 


Only, please folks, no matter how tempting it 
may be, don’t fib to people once you start pro- 
gramming with Marshal Pascal! 


the Price? 
$189. 


Marshal Pascal” 


Supports PC-DOS®, MS-DOS®, CP/M-86®, Concurrent Dos® 
and soon Xenix 286®! 





Marshal Pascal is a TM of Marshal Language Systems, CP/M-86 and Concurrent Dos are ® of Digital 
Research, Inc., PC-DOS is a @® of IBM Corp., Turbo Pascal is a ® of Borland International, Inc., MS-DOS 
and Xenix 286 are ® of Microsoft Corp. 


To order your copy of Marshal Pascal call: 98 826-2222 
In California: (415) 947-1000 
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1136 Saranap Ave., Ste. P, POB 2010, Walnut Creek, CA 94595 
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6502 HACKS 
(continued from page 26) 


STY TAB2,X set TAB2 to $80 
DEX 
BPL LOOP2 


Chaining Subroutines 

One of the simplest ways to save 
bytes is to use subroutines for com- 
mon code. This requires the time cost 
of the JSR (six cycles) and the RTS (six 
cycles), however. 

One way to save in subroutines is to 
create multiple-entry subroutines. 
That is, if two subroutines share a 
common ending, do not put that com- 
mon ending in another subroutine. 
Instead, create a single subroutine. In 
a “pure” multiple-entry subroutine, 
you fall through all sections of code 
until the return statement. You can 
also jump around the noncommon 
code: 


FIRST_ENTRY 
first section of code 
JMP END_SUB 
- or the like 
SECOND_ENTRY 
second section of code 
END_SUB . 
final processing 
RTS 


;also try BCC 


The calling routines can call either 
FIRST_ENTRY or SECOND_ENTRY with 


their different processing. Both sub- 
routine sections will exit from the 
same RTS, however. 


Finding the Extra 
Microprocessor Cycle 

Sometimes, in coding for real-time 
processing, you may need to kill an 
extra cycle or two. The 6502 has a 
two-cycle NOP (no operation) instruc- 
tion. What about a single cycle? The 
6502 has no single cycle NOP. 

Of course, sometimes a single cycle 
isn’t needed—only an odd number of 
cycles. You can get seven cycles by a 
combination of push and pull stack 
operations; five cycles can be bought 
by doing a NOP and a load from zero- 
page memory. 

Single cycles can be gained only 
through other operations. One such 
operation is the absolute addressed 
load using an index register. Normally 
this instruction (LDA ADDRESS,X or LDA 
ADDRESS, Y) takes four cycles. If there 
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is a page boundary crossing (say that 
ADDRESS is at COFO and the X register 
is 18), however, then the instruction 
takes five cycles. To gain the extra 
cycle, the table can be placed to force 
a page boundary crossing. 

Occasionally you can use hardware 
memory mapping to the same effect. 
In the Atari VCS, for example, page 1 
memory and page 0 memory were 
mapped together. Therefore, if ZER- 
OADD were at 0065, it could also be 
found at 0165. A zero-page fetch costs 
three cycles, but the same fetch from 
page 1 memory costs four cycles. 

It is also possible to branch to the 
next instruction depending on a flag. 
This kills either two cycles (for a non- 
executed branch) or three cycles (for 
a branch taken). This is occasionally 
useful for synchronizing if... then 
... else code. 


Savings by Stepping Back 

Perhaps the greatest savings can be 
had by proper planning. Putting two 
flags in bits 7 and 6 or in bits 0 and 1 
makes more sense than putting them 
in bits 3 and 5. Often it is necessary to 


make simple changes in the midst of 
programming in order to crunch 
code. This type of planning comes 
with experience. 

Stepping back from the actual pro- 
gramming always helps. For exam- 
ple, you may have converted one 
data structure to another through 
easily understandable transforma- 
tions, perhaps with intermediate 
data structures. If you are used to 
high-level languages in which this is 
encouraged, your assembler code 
will reflect it. Unfortunately, this 
type of elegance often turns out to be 
costly. The type of elegance that will 
benefit you in crunching will be the 
elegance of simple algorithms—al- 
most always single-pass algorithms— 
that do not require special cases. Spe- 
cial cases cost. 

Another type of planning that is of- 
ten helpful is determining when pro- 
gram actions will occur. It may not be 
necessary to have all program func- 
tionality present at the same time. In 
a game, where time is critical, the x,y 
positions, for example, do not need to 
be updated every 1/60 second be- 


FULL AT&T C++ for half the price of our competitors! 


Guidelines announces its port of version 1.1 of AT&T’s C++ translator. As an 
object-oriented language, C++ includes: classes, inheritance, member functions, 
constructors and destructors, data hiding, and data abstraction. ‘Object-oriented’ 
means that C++ code is more readable, more reliable and more reusable. And that 
means faster development, easier maintenance, and the ability to handle more 
complex projects. C++ is Bell Labs’ answer to Ada and Modula 2. C++ will 
more than pay for itself in saved development time on your next project. 


C++ 


from GUIDELINES for the IBM PC: $195 





Requires IBM PC/XT/AT or compatible with 640K and a hard disk. 
Note: C++ isa translator, and requires the use of Microsoft C 3.0 or later. 


To order: 
send check or money order to: 


Here is what you get for $195: 

¢ The full AT&T vl.1 C++ translator. 

¢ Libraries for stream I/O and complex math. 

¢ "The C++ Programming Language”, the 
definitive 327-page tutorial and description 
by Bjarne Stroustrup, designer of C++. 

¢ Sample programs written in C++. 

¢ Installation guide and documentation. 

¢ 30 day money back guarantee. 


GUIDELINES SOFTWARE 
P.O. Box 749 
Orinda, CA 94563 


To order with Visa or MC, 
phone (415) 254-9393. 
(CA residents add 6% tax.) 


C++ is ported to the PC by Guidelines under license from AT&T. 
Call or write for a free C++ information package. 
Circle no. 351 on reader service card. 
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6502 HACKS 
(continued from page 29) 


cause the human eye does not de- 


mand that. In business software, 
where space is more critical, you can 
overlay code. 


Is It Really Necessary? 

In addition, there is always a time to 
ask yourself, is that feature really 
necessary? 

In a time-sharing scheme I was 
working on, for example, it was nec- 
essary to determine three-way time 
sharing. The ideal would have been 
to have a scheduling sequence such 





ADVANTAGE C++ 


Brings the power of C++ to your PC. 


* Opens the door to object-oriented programming 

¢ Allows programs with greater resilience, fewer bugs 
¢ Fully compatible with existing C programs 

¢ All the benefits of C without its limitations 
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Everything you've always wanted in a PC-DOS linker. 


¢ The fastest, most powerful PC-DOS linker available 

¢ The first linker to take full advantage of extended memory 
¢ Accepts Microsoft and Phoenix command files 

¢ Supports up to 53 commands—more than any other linker 
¢ Compatible with Microsoft CodeView 


ADVANTAGE LIBRARY SERIES 


TimeSlicer 


Multi-tasking library streamlines C programming. 


* Perform concurrent tasks and real-time event processing 

* Includes header files for both C and assembly language and 
example programs with source code 

* Compatible with C++ and object-oriented programming 

* Critical resource management assured 
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The Full-Service Source for Programming Software. 


as: 
fn 0°% 329 °22.3°"7235 


and so on, with each of the three ac- 
tions (placing a graphics sprite on the 
display) getting one-third of the time. 
This order was needed rarely, how- 
ever, the usual case being either two- 
way time sharing or no time sharing. 
Divides-by-3 are extremely expensive 
on the 6502, so I came up with this 
alternative: 


£261 P28 823535 123% 


where x was a Skipped slice. It turned 
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out that the result was not significant- 
ly distinguishable, which saved many 
bytes and much time. (This could be 
implemented by ANDing a timer with 
$07 and using a lookup from a table.) 
This approach transformed a difficult 
computation into a_ divide-by-4 
problem. 

All of this is not to say that design 
can be separated from coding. The in- 
spired moment of coding often finds 
the necessary time and bytes when all 
the planning weeks (or even months) 
ago failed. It takes patience and skill to 
notice that TABLE2 can be created by 
taking the TABLE1 entry, exclusive OR- 
ing $7F, and adding 5. It takes the same 
patience and skill to rip out a section 
of code and rearrange it to get the 
same overt behavior. 


Killer Hacks 

When all else fails, there are alwaysa 
few tricks left. The following hacks 
are not for novices, though. These 
methods squeeze the final cycles and 
bytes from your program. They 
make debugging your code nearly 
impossible, and you might as well 
forget about maintaining the code 
later. 

Please don your safety goggles. 


Chaining Branches 

One ugly way to reduce the number 
of bytes of code is to chain branches. 
As mentioned earlier, the 6502 uses 2 
bytes for a relative branch instruc- 
tion and 3 bytes for an absolute jump 
instruction. Unfortunately, the rela- 
tive byte instruction can address a 
space of only 127 bytes forward or 
backward. Therefore, the uncondi- 
tional JMP instruction is often used, 
even for implementing if... then 
...else structures. It is possible to 
convert these JMPs to conditional 
branches, saving bytes. 

If a condition is known, such as the 
carry bit being set or the overflow 
flag being clear, it is possible to 
branch to another branch. By chain- 
ing branches, it is possible to have 
conditional branching of more than 
127 bytes distance. This is recom- 
mended only when it is important to 
conserve space at the cost of execu- 
tion time—two branches have to be 
executed—and maintainability. 


Seli-Modifying Code 


Self-modifying code can be used | 
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profitably in critically real-time rou- 
tines when literally every cycle 
counts. Instead of loading a loop 
counter or some such from a zero- 
page variable, you can just change 
the LDX immediate instruction on the 
fly. This saves a cycle. 

In addition, instead of performing 
a load or store indirect indexed, 
which uses 2 bytes of zero-page RAM: 


LDA (INDIRECT),Y 

you can modify the destination ad- 
dress on the fly and perform an in- 
dexed absolute load or store to save a 
cycle: 


LDA ADDRESS,Y 


This, of course, will have you barred 


permanently from any MIS employ- 
ment for the rest of your life. Actual- 
ly, I could not use this on the VCS be- 
cause of the lack of RAM, so I am not 
familiar with its difficulties. I have 
been told, however, that with ade- 
quate documentation, this sort of 
treachery can be maintained. 


Use of the NMI Interrupt 

Another nasty trick to save bytes is the 
use of the break (perform interrupt) 
instruction. The JSR (call subroutine) 
instruction requires 3 bytes per call, 
whereas the BRK instruction requires 


only a single byte. This method, how- 
ever, requires that you not be expect- 
ing nonmaskable interrupts. 

To use this method, you must set 
the NMI vector to the address of the 
most frequently used subroutine. The 
BRK instruction can then be used to 
call the routine. BRK, however, not 
only places the return address onto 
the stack but also pushes the flag byte 
onto the stack. If you do not return 
information in the flags, you can re- 
turn from the interrupt with an RTI. If 
you need the flags that were set in the 
subroutine, however, return with: 


PLA 
RTS 


;pop caller’s flags 


;return normally 


Unfortunately, the BRK instruction 
takes seven cycles instead of the JSR’s 
six. If a PLA is needed, that will also 
add four cycles. After you set the NMI 
vector (at a cost of 2 bytes), however, 
each call will save 2 bytes. 
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Overlapping Code and Data 

You can squeeze data table space in 
two ways. The first sounds more dif- 
ficult to maintain but actually turns 
out to be easier in practice. This is to 
find the appropriate data table values 
in your code space. For example, you 
might need the following flag table: 


TABLE $80,00 


If you will be testing only bit7, howev- 
er, the following table would also do: 


TABLE $A9,00 


This just happens to be a LDA #0 (load 


off the Latest 
Evolution of C 


Designer C++ is OASYS’ 
full implementation of 
AT&T’s enhancements to 


the C language 









FEATURES: 


and operators 


of data structures 
> Data abstraction 





conversion 


The only commercially-available C++ 

customized to operate on PC’s, micros, 
minis, and mainframes with popular C 
compilers, including: 


VAX C GREEN HILLS 
LATTICE WIZARD 
MICROSOFT WHITESMITH’S 


I 


A DIVISION OF XEL 


60 Aberdeen Ave., Cambridge, MA 02138 (617) 491-4180 





The Wrapping ts 


> Optional strong type checking 
> Overloading of function names 


> Optional guaranteed initialization 


> Dynamic typing (virtual functions) 
> Optional user-defined implicit type 


immediate of 0) instruction. Finding 
the appropriate code in your 
program: 


TABLE LDA #0 


also eliminates the 2 bytes from your 
data space. Although you might want 
to comment this table extensively to 
remind yourself of what you did, the 
only real problem you will have is to 
find the table again. Note that this 
technique generally works only with 
small tables. 

The second method is much more 
effective in finding bytes. If you have 
four data tables: 
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¢ Works with your present 
C Compiler 

e Functions as a Pre- 
processor Translator — 
handles regular C code 
with no changes 

e Type-checking and other 
features are optional — 
you can turn them off 

e Already thousands of 
users at commercial sites 

¢ Complete documenta- 
tion: C++ A User’s Guide 
by Bjarne Stroustrup of 
AT&T (Addison-Wesley, 
1986) 





We Specialize in: Cross/Native Com- 
pilers: C, Pascal, FORTRAN, Ada, LISP — 
Assemblers/Linkers — Symbolic Debug- 

ers — Simulators — Interpreters — Pro- 
ilers — QA Tools — Design Tools —Comm. 
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6502 HACKS 
(continued from page 31) 


TABLE1 DS 0,1,2,3,0,0,0 
DS $80,3,2,1,0 
TABLE2 DS 3,2,1,0 
TABLE3 DS 0,0,0 
TABLE4 DS 1,0,6 


they can be profitably reorganized 
as: 


TABLE1 DS 0,1,2,3 
TABLE3 DS 0,0,0 
DS $80 
TABLE2 DS 3,2 
TABLE4 DS 1,0,6 


eS oT 2 tree 


Confused? TABLE3 and TABLE2 are 
now completely contained in TA- 
BLE1. TABLE1 also extends throughout 
most (but not all) of TABLE4. Note that 
this has saved 9 bytes from the origi- 
nal 22 bytes. 

Often the program can be altered 
slightly to increase this type of sav- 
ings. Using the nybble-increment ex- 
ample from the section on table-driv- 
en code, the choice of instruction 
used might also depend on what ta- 
bles are available for merging. It is 
also possible to find the table back- 
ward within another table: your in- 
dexing must then proceed backward 
also, decrementing instead of 
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Full 4.2BSD UNIX™ 
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skimp on software. And we can even give 
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Loaded With Languages 

Turn on your 375 and start developing 
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incrementing. 
Similarly huge savings are almost 
always possible. If you have a bug 


and one of the tables must be 


changed, however, it will be ex- 
tremely difficult to separate the origi- 
nal data tables without adequate doc- 
umentation. I have always used this 
technique last. 


Code as Data 

There are particular instances—es- 
pecially when there is absolutely no 
room left—when code can substitute 
completely for data tables. This is es- 
pecially effective for simulating ran- 
dom movements, such as for a self- 
play mode (called the attract mode in 
games). Code for the 6502 tends to be 
somewhat heavy toward having bit7 
set, but otherwise it can create effec- 
tive random tables. It is often neces- 
sary to try many code sections, how- 
ever, for the desired effect in the 
software action. 


The Endless Trade-Off 

The crunching process revolves 
around the standard trade-off of time 
vs. space. Even a simple change, such 
as removing redundant code, re- 
quires this trade-off. Subroutines 
have extra overhead and slow pro- 
cessing down. In-line code, as with 
macros, can greatly speed up critical 
processing but at the cost of an enor- 
mous code space. 

Many of the hacks described here 
require this trade-off. Most are tricks 
that sacrifice one for the other. The 
other hacks all have the added cost of 
reduced maintainability or increased 
programmer effort. 

When is it worth using these 
hacks? If you're writing Pascal code 
on the Macintosh or C code on the PC, 
they cannot help much in removing 
30K from your 200K program. But if 
youre in a situation in which you 


need a fast interrupt routine, these 


techniques can help on any machine. 
They can also be useful if you need to 
reduce the code space for a desk ac- 
cessory or a similar routine or if 
youre just the sort of person who 
gets excited by realizing that a flag 
can be reused. 


I'd like to thank the folks at General 
Computer for all their help. 
DDJ 
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ARTICLES 


Hashing for High- 
Periormance Searching 


rograms that process symbol- | ~ 
p ic information, such as com- 


pilers, interpreters, assem- 
blers, spelling checkers, and text 
formatters, maintain an internal list 
of symbols or words—a symbol table. 


The speed of the symbol table's | | 
search and update operations often |_ 


determines the performance of these 
programs. A hashing or scatter stor- 
age symbol table is easy to program 
and nearly always performs much 
better than a linear list or binary tree. 
In this article, I'll describe a_ tech- 
nique called open hashing, discuss 
some of its performance factors, and 
then introduce a simple modification 
that can more than double the speed 
of the technique. 


Open Hashing 

Each symbol in a symbol table is rep- 
resented by an identifier that is usual- 
ly a string of alphanumeric charac- 
ters, or a word. Each variable name 
in a Pascal program is an identifier, 
for example. An identifier is often as- 
sociated with other data of interest to 
the application—for instance, an en- 
try in the variable symbol table for an 
interpreter may be associated with a 
value for that variable, or an entry in 
the word table for a text analysis pro- 
gram may be associated with a refer- 
ence count for that word. For now, 
don’t worry about how to associate 
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or binary a tree. 





dae boil a symbol or even how to 
store strings of characters in memo- 
ry. Suppose you can store the identi- 
fier string for a symbol somewhere 
in memory and retain its location as 
an index value, address, or pointer. 
Also suppose you can associate each 
identifier with a pointer to another 
identifier; thus you can form a list, or 
chain, of identifiers, each pointing to 
the next, until you reach the end of 
the list, symbolized by (nil). For in- 
stance, you might represent a chain 
of three identifiers by: 
word1--->word2--->word3---> (nil) 

An open hash table is a linear array 
of pointers called buckets, each 
pointing to the beginning of a list of 
symbol identifiers. For example, you 
might represent an open hash table 
with 101 buckets as shown in Table 1, 
page 35. Bucket number 0 points to 
the list of identifiers left, help, replace; 
bucket number 1 is empty; number 2 
points to the list down, word, print, 
align; and so on. The bucket pointers 
are adjacent to one another in an or- 
dinary array, but the identifiers may 
be scattered about in dynamic mem- 
ory or located in a separate array and 
strung together by their pointers into 
a list. 

How do you decide to which buck- 
et a word belongs? You decide with a 
hash function. For example, you 
might add up the ASCII character val- 


ues of the letters in the identifier 
string, divide by the size of the table, 


> | and use the remainder as the bucket 


number. (This is actually a widely 
used method and is one of the four I 
analyze later.) The remainder after 
integer division, or modulo (MOD), is 
always less than the divisor, so if you 
use the table size as the divisor, the 
remainder is always a valid bucket 
number. When you insert an identifi- 
er in the table, you first compute its 
hash number, which is the bucket 
number. If the bucket pointer al- 
ready points to an identifier, this is 
called a collision, and you add the 
identifier to the list of symbols al- 
ready associated with that bucket. If 
the bucket is empty, you simply 
point it to the new identifier. When 
you wish to search the symbol table 
for an identifier, you again compute 
its hash number, which determines 
the bucket containing the identifier if 
it is in the table. You then need to 
search only the list of symbols associ- 
ated with that bucket. Using this 
method, on average you will search 
about 1 percent of the full list. 

Pascal data structures for a hash 
pointer table and symbols are pre- 
sented in Listing One, page 44. Listing 
Two, page 44, provides routines to 
initialize, insert, and locate symbols, 
and Listing Three, page 47, provides 
four different hash functions. 


Performance 

As part of a performance test, I ana- 
lyzed a text file consisting of about 
1,200 lines of Pascal code. The first 
pass through the file collected all 
unique identifiers in a 101-bucket 
hash table using the ‘‘sum of the char- 
acters’ hash function described earli- 
er. Out of 3,198 noncomment words, 
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243 were unique identifiers. The sec- 
ond pass searched the hash table 
again for each of the 3,198 words and 
simultaneously counted “probes,” or 
comparisons of the search word with 
a symbol table identifier. The second 
pass counted 7,216 probes—an aver- 
age of 2.26 probes to find any given 
word. This result is about what you 
would expect from 243 identifiers 
distributed to 101 buckets. In con- 
trast, with the same data in a bal- 
anced binary tree or a sorted list, you 
would average about seven or eight 
probes to find each word, and in a 
simple linear list you would average 
more than a hundred. 

Evidently, the number of probes 
necessary to find any given symbol 
appears to be approximately the 
number of identifiers stored in the ta- 
ble divided by the number of buck- 
ets. (Actually, for a uniform word dis- 
tribution, you would expect it to be 
about half this number, but it’s not 
because the word distribution is not 
uniform, as you shall see.) Therefore, 
one way to improve the perform- 
ance of a hash table is to increase the 
number of buckets. With the same 
Pascal source file in a 203-bucket 
hash table, for example, you should 
more often than not find the search 
symbol on the first probe. 

I also analyzed one quick-to-com- 
pute hash function—the sum of the 
first (times a constant) and last char- 
acters plus the identifier length. 

Aho, Sethi, and Ullman! describe 
and analyze a hash function they call 
HashPJwW (see Listing Three). In study- 
ing HashPJW, I was struck by its simi- 
larity to software routines for com- 
puting cyclic redundancy check (CRC) 
codes used to detect errors in disk stor- 
age and data communications. I sup- 
pose this makes intuitive sense—CRC 
code algorithms are designed to gen- 
erate as many unpredictably differ- 
ent codes as possible for widely vary- 
ing input data, with the hope that a 
packet or sector with an error will 
have a different CRC from the original 
and thus the error will be detected. A 
hashing algorithm based on CRC 
should do quite well on the average, 
and fast, table-driven routines exist in 
the public domain. One such routine 
is also presented in Listing Three. 

A poor hash function can reduce 
performance by overusing some 
buckets and underusing others. A 
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hash function may be quite accept- 
able for one set of symbols and horri- 
ble for another. Aho, Sethi, and UII- 
man also describe a statistic (here 
called Uth,t)) that characterizes the 
uniformity of a hash function (h) in 
distributing a given set of symbols (t) to 
hash buckets. A routine to compute 
U(h,t is given in Listing Four, page 48; 
it computes the results for each hash 
function and text file discussed. The 
lower the U(h,t) number, the more 
uniform is the distribution—a _per- 
fectly random distribution would 
have a U(h,t) of 1.000, and a distribu- 
tion more uniform than random 
would have a U(h,t) less than 1.000. 

In summary, the four hash algo- 
rithms I analyzed were: 


*(sum of the characters + length) 
MOD 101 


¢ (first « 256 + last + length) MOD 101 
¢e HashPJW MOD 101 
¢ CRC-16 MOD 101 


I analyzed three text files: 


ea 1,200-line, 3,198-word Pascal pro- 
gram (comments and strings exclud- 
ed) with 243 unique identifiers 

¢ a 1,300-line, 9,025-word legal deposi- 
tion outline with 1,068 unique words 
ea 1,150-line, 5,516-word business re- 
port with 1,402 unique words 


My results are summarized in Ta- 
bles 2, 3, and 4, below. In general, the 
choice of hash function didn’t appear 
to make a significant difference to the 
performance of the program. The dif- 
ference in number of probes between 
the best performing and the worst 
performing hash function was never 





Table 1: Pointer identifier list 
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Table 4: Business report, average 13.88 words per bucket 
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HASHING FOR SEARCHING 
(continued from page 35) 


more than 23 percent. The second 
hash function did remarkably well 
considering the amount of informa- 
tion discarded by ignoring everything 
but the first and last characters and 
the length. This routine would be ex- 
pected to do very poorly on identifi- 
ers that are all the same length and 
begin with the same character, such 
as those generated by some assembler 
macro processors. The CRC routine 
was unexpectedly worst on the depo- 
sition outline (ong, but with not many 
unique words) but did very well on 
the others. The Uth,t) function gener- 
ally did pretty well in characterizing 
the search performance of the hash 
functions. I would be interested to 
hear the results of similar tests of 
these hash functions on other text 
files and of other hash functions. 


A Self-Organizing List 
Computer and human language text, 
particularly computer language text, 
do not contain a uniform distribution 
of words. If you were to count the oc- 
currences of each unique word in a 
large sample of text and rank the 
words from most-often-used to least- 
often-used, you would find a wide dis- 
parity in word counts. You would also 
find a pattern: The product of the oc- 
currence count and the rank order 
would be approximately constant. In 
1949, George Zipf? described this 
word distribution pattern for several 
human languages and, oddly, popula- 
tions of cities—it’s now called Zipf's 
law. In addition, computer language 
text tends to be ‘‘clustery’’—that is, 
references to the same identifier tend 
to be clustered together rather than 
uniformly distributed throughout the 
text. You can use this information to 
improve search algorithms. 

Notice, after computing the bucket 
number with a hash function, 
searching an open hash table boils 
down to searching a linear list an- 
chored in the chosen bucket. If you 
could organize the list so that the 
more likely an identifier is to be ref- 
erenced next, the closer it is to the 
front of the list, the search time 
would be improved. If, every time 
you find a symbol during a search, 
you move it to the front of the list, the 
list will tend to organize itself in just 
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the optimum way for the clustery, 
unevenly distributed references that 
occur in human and computer lan- 
guage text. 

The symbol search routine in List- 
ing One requires seven additional 
lines of code to implement a self-or- 
ganizing list with “move to front” 
(MTF). The modified search routine is 


Computer language 
text tends to be 
‘clustery.’ 


presented in Listing Five, page 50, 
and the analyses of the four hash 
functions on the three text files are 
presented in Tables 5, 6, and 7, below. 
Clearly, the MTF optimization has a 
far greater effect on the number of 
probes than on any of the hash func- 
tion variants. On Pascal source, the 
number of probes dropped at least 30 
percent. On business report text, the 
drop was about 55 percent, and on 
the deposition outline, the drop was 
an incredible 66 percent or more. 

In general, the more clustery and 
skewed the distribution, and the 
more items per hash bucket, the 


Hash Method 
Sum of chars © 
F+HL-+ len 


No. of Probes 
4326 
4552 
4414 
4550 


HashPJW 
CRC 





more improvement MTF offers. I ex- 
pect that Pascal source, arguably the 
most skewed and clustery of all text, 
would have shown more dramatic 
improvement had the average length 
of the word list at each hash bucket 
been 10 or 15, asin the other text sam- 
ples, rather than 2 or 3. In the two 
human language text samples, the 
number of probes per search 
dropped to significantly less than 
half the average number of words 
per bucket. If words were distributed 
randomly in the text with uniform 
frequency, you would expect the 
number of probes per search to be 
about half the average number of 
words per bucket. Interestingly, with 
MTF the performance of CRC on the 
deposition outline text climbs into 
third place, well ahead of first + last 
+ length and more in line with ex- 
pectations. The U(h,t) function re- 
mains unchanged because it depends 
only on the hash function and the 
text under analysis. 


Conclusions 

Hashing is a simple and effective or- 
ganization scheme for symbol tables 
when rapid searching of the table is 
important but ordering (for example, 
alphabetically) is not. The choice of 
hashing function appears, on the ba- 
sis of the tests I conducted, to have 


Probes/Search 
1.35 
1.42 
1.38 
1.42 


U(h,t) 
1.022 
1.127 . 
1.045 
0.981 


Table 8: Pascal source code searched with MTF 


Hash Method 
Sum of chars 
+L + len 
HashPJW 
CRC 


No. of Probes 
25659 
28043 
25001 
26079 





U(h,t) 
1.034 
1.178 
0.993 
—~—1014 


-Probes/Search 
| 2.84 
311 
21 
2.89 


Table 6: Legal deposition outline searched with MTF 


Hash Method 
Sum of chars 
F+bL+len 


27882 
33314 
27806 
27802 


HashPJW 
CRC 


No. of Probes 





Probes/Search 
5 OS 
6.04 
5.04 


U(h,t) 
1.004 
1.217 
100) 
0.995 


Table 7: Business report searched with MTF 
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HASHING FOR SEARCHING 
(continued from page 37) 


little effect on the overall perform- 
ance of the search, with the caveat 
that it is always possible to deliberate- 
ly or accidentally contrive data that 
will defeat any hashing function. I 
would tend to favor HashPJW or CRC, 
which seem to be more difficult to 
fool. The incorporation of MTF self- 
organizing lists greatly improves the 
performance of the linear search 
phase at minimal coding cost. 


Some Topics for Further 
Investigation 

1. It’s difficult to believe that the 
choice of hashing function has as lit- 
tle effect on performance as I ob- 
served. I would like to see the test re- 
sults of the four hashing algorithms 
on a wider variety of textual material 
in human and computer languages. I 
can be reached at CompuServ ID 
(76067,747] or by U.S. Snail. Do you 
know a hashing function that consis- 
tently does better on a wide variety 
of text materials than the four pre- 
sented here? 

2. Hester and Hirschberg? point out 
that MTF is not the only way to imple- 
ment a self-organizing list. Some re- 
search (mostly assuming uniform dis- 
tributions) indicates that exchanging 
the found item with the one preced- 
ing it on the list works better than 
MTF as the number of searches be- 
comes arbitrarily large. How does 
this method perform compared to 
MTF with practical text files? 

MTF and Exchange are opposite 
ends of the general ‘‘move ahead n”’ 
method (Exchange is move ahead 1, 
MTF is move ahead all the way). Is 
there some n, perhaps a function of 
the number of symbols on the list or 
the nearness of the found symbol to 
the front of the list, that produces bet- 
ter results than MTF? 

Wild tangent: Huffman data com- 
pression depends on a distributed or- 
dering of words or characters. Can a 
self-organizing list be used in a Huff- 
man-like data compression routine 
that makes only one pass on the file? 
3. If the identifier or search key is 
very long and the number of colli- 
sions is high, the time required to 
compare keys may become signifi- 
cant or even dominant. Morris? sug- 
gests computing a hash code at least 
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three times longer than needed, us- 
ing part of the code to determine the 
bucket number, and storing the re- 
mainder in the table instead of the 
identifier. The search routine then 
compares hash codes only, not the 
full identifier. This admits the possi- 
bility of a false match, but Morris be- 
lieves the probability is acceptably 
low (which seems to me to be a bla- 
tant challenge to Murphy!). This has 
the attraction of eliminating the need 
to store a variable length character 
string. Do you have any experience 
with such a scheme, and would you 
be willing to share it? 

4. What if you had a small list of iden- 
tifiers that you needed to detect very 
rapidly in a text file—for example, 
the list of reserved words in Pascal? Is 
it possible to create a ‘‘perfect’’ hash 
function in which each identifier 
would hash to a unique bucket with 
no collisions and the number of buck- 
ets would equal the number of iden- 
tifiers—or at least be a minimum? Ac- 
cording to Sager® it is, and the 
creation of such a function can even 
be partially automated. I would like 
to hear about experiences with 
Sager’s algorithms implemented and 
used on a microcomputer. He reports 
creating minimal perfect hash func- 
tions for lists of up to 512 identifiers 
using an IBM 4341; what is the practi- 
cal maximum for an IBM PC? 

5. I've discussed hashing as a RAM-res- 
ident symbol table implementation 
technique. It has also been used as a 
disk database indexing technique. 
How is hashing on disk different 
from hashing a RAM symbol table? Is 
MTF optimization or any other kind 
of self-organizing list appropriate for 
disk hashing? 


Listing Notes 

All listings are in Turbo Pascal (Ver- 
sion 3, any operating system) for ac- 
cessibility. The algorithms are almost 
trivial and should be readily convert- 
ible to assembly or any higher-level 
language. These routines use the fol- 
lowing nonstandard Turbo Pascal 
features, which I feel serve to en- 
hance the clarity of the code with 
minimal impact on its portability: 


Declaration: STRING [n/—variable 
length string variables, equivalent to 
ARRAY [0..n]of CHAR where element 0 
of the array contains the length of the 


string. Assignment, concatenation, 
and comparisons are permitted on 
string variables. 

LENGTH (x)—returns the length 
(0..255) of the string parameter; equiv- 
alent to ORD (x [0]). 

COPY (x, 1, j/—returns substring of 
string x, beginning with character i 
and continuing for 7 characters or un- 
til the end of string x. 

SIZEOF (x)—pseudofunction return- 
ing the size in bytes of a variable or 
declaration. A constant value may be 
substituted. 

GETMEM (ptrvar, len)—akin to NEW, 
returns a pointer to a chunk of dy- 
namic memory of the specified 
length. 

Infix Boolean bitwise operators: AND, 
OR, XOR—recognized as bitwise oper- 
ators when used with integer oper- 
ands and bit shift operators (SHL, shift 
left; and SHR, shift right). 


Listing Two 

The procedure Symbol_Put in List- 
ing Two, which inserts the symbol 
name and data in the table, does not 
check for duplicate symbols. If you 
want to disallow duplicate symbols, 
use something such as: 


IF NOT symbol_get (. . .) THEN 
symbol_put (.. .); 


On exit, this_symbol points to the 
heap copy of the symbol just insert- 
ed, and s_data has been copied into 
this_symboli.sym_data. 

Symbol_Put attempts to conserve 
heap space by obtaining only enough 
memory to hold the identifier and its 
associated data, not the unused por- 
tion of thesym_namestring. The tech- 
nique used here depends on nonstan- 
dard features and characteristics of 
Turbo Pascal, Version 3, and may not 
be directly portable to other lang- 
uages or future versions of Turbo Pas- 
cal. Nevertheless, I believe it to be the 
clearest exposition of the algorithm 
and defend it on those grounds. 


Notes 

1.A.V. Aho, R. Sethi, and J. D. Ullman, 
Compilers (Reading, Mass.: Addison- 
Wesley, 1986), 434—436. 

2.G.K. Zipf, Human Behaviour and the 
Principle of Least Effort (Reading, 
Mass.: Addison-Wesley, 1949). 

3. J. H. Hester and D. S. Hirschberg, 
Self-Organizing Linear Search,’ ACM 
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Computing Surveys, vol. 17 no. 3 
(1985): 295—311. A survey of the cur- 
rent state of knowledge on self-orga- 
nizing searches, particularly with 
Zipf distributions. 

4. R. Morris, “Scatter Storage Tech- 
niques,’ Communications of the ACM, 
vol. 11 no. 1 (1968): 38—44 or vol. 26 
no. 1 (1983): 39—42. The earliest de- 
scription I found of open hashing, 
here called ‘‘scatter index tables.” It 
also describes “‘virtual scatter tables.”’ 
5. T. J. Sager, “A Polynomial Time 
Generator for Minimal Perfect Hash 
Functions,’ Communications of the 
ACM, vol. 28 no. 5 (1985): 523—532. 
Graph/network-theory related algo- 
rithms for finding perfect hash 
functions. 
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All the source code for articles in this 
issue is available on a single disk. To 
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c-tree / r-tree 


FILE HANDLER 


Performance and Portability 


For all the time you devote to developing 
your new programs, doesn't it make sense to 
insure they perform like lightning and can be 
ported with ease? 


c-tree: Multi-Key ISAM Functions 
For Single User, Network, & Multi 
Tasking Systems 


Based on the most advanced B: Tree routines 
available today, c-tree gives you un- 
matched keyed file accessing performance and 
complete C Source Code. Thousands of profes- 
sional C programmers are already enjoying 
c-tree’s royalty-free benefits, outstanding 
performance, and unparalleled portability. 


Only FairOom provides single and multi-user 
capabilities in one source code package, 
including locking routines for Unix, Xenix, and 
DOS 3.1., for one low price! In addition, 
c-tree supports fixed and variable record 
length data files; fixed and variable length key 
values with key compression; multiple indices 
in a single index file; and automatic sharing of 
file descriptors. 


r-tree: Multi-File Report Generator 


r-tree builds on the power of c-tree 
to provide sophisticated, multi-line reports. 
Information spanning multiple files may be 
used for display purposes or to direct record 
selection. You can develop new reports or 
change existing reports without programming 
or recompiling and can use any text editor to 
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REPORT GENERATOR 


create or modify r-tree report scripts 
including the complete report layout. At your 
option, end users may even modify the report 
scripts you provide. 


Unlimited Virtual Fields; Automatic File 
Traversal 


r-tree report scripts can define any number 
of virtual fields based on complex computational 
expressions involving application defined data 
objects and other virtual fields. In addition, 
r-tree automatically computes values 
based on the MAX, MIN, SUM, FRQ, or AVG of 
values spread over multiple records. r-tree 
even lets you nest these computational func- 
tions, causing files from different logical levels 
to be automatically traversed. 


Unlike other report generators, r-tree allows 
you fo distribute executable code capable of 
producing new reports or changing existing 
reports without royalty payments, provided the 
code is tied to an application. Your complete 
source code also includes the report script 
interpreter and compiler. 


How To Order 


Put FairCom leadership in programmers utilities 
to work for you. Order c-tree foday for 
$395 or r-tree for $295. (When ordered 
together, r-tree is only $255). For VISA, 
MasterCard and C.0.D. orders, call 314/445- 
6833. For ¢- tree benchmark comparisons, 
write Fairdom, 2606 Johnson Drive, Columbia, 
MO 65203. 


A Complete C Source Code & No Royalties! 


Xenix is a registered trademark of Microsoft Corp. Unix is a registered trademark of AT&T. 
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On-Line HELP! Function Library 

HELP! is an on-line utility library that gives your software instant, 
context—sensitive, pop—up HELP! windows at the touch of a key. Link your 
C code with the HELP! library, tell HELP! which window is current, and HELP! 
does the rest — fast. HELP! writes directly to video memory with no flicker 
or snow. 


HELP! Runs on PCs and compatibles. B+W or CGA. Source code is 
available. 


HELP! Composer 

Compose your HELP! windows interactively. Control HELP! window text, size. 
colors, position, borders, titles. The HELP! Composer runs as a standalone 
utility or link it along with your programs to watch each HELP! window 
take form against the backdrop of your own screen designs. The HELP! 
Composer builds an ASCII text file to describe all the HELP! windows for 
each application. 


Complete Windows and Pop-Down Menu Library 

A bonus: Use the window and pop—down menu functions from the HELP! 
library in your own programs. This is a complete C window package. 
Open and close windows, fill windows with text, scroll, select with a cursor 
bar, promote a window from the background, move a window. 


Window Text Editor 
Use the full-featured, window—oriented HELP! Text Editor to collect text 
data into your application. Open a window and call the editor. 


HELP! links with programs compiled by most MS—DOS C compilers: Aztec, 
CIl—C86, Datalight. DeSmet. Eco—C88, High C, Lattice, Lets C, Microsoft, 
Whitesmiths, Wizard. Most memory models are supported. The HELP! 
distribution package includes libraries) a C demo program, and a 
complete Programmer's Manual. 


HELP!: $49. HELP! with Source Code: $149. Demo diskette: $10, deducted 
from your order. Specify compiler. MasterCard and VISA are accepted. (FL 
residents add 5% sales tax.) 


C SOFTWARE TOOLSET 
2983 Newfound Harbor Drive — Merritt Island, FL 32952 — (305) 453-0257 
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RELOCATING MACRO ASSEMBLERS «® Z80 e 8085 ¢ HD64180 
e Generates COM, Intel HEX, Microsoft REL, or SLR REL 
@ Intel macro facility 
e All M80 pseudo ops 
@ Multiple assemblies via command line or indirect command file 
e Alternate user number search 
e ZCPR3 and CP/M Plus error flag support, CP/M 2.2 submit 
abort 
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e Time and Date in listing 
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1622 N. Main St., Butler, PA 16001 
(412) 282-0864 (800) 833-3061 
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Listing One (Text begins on page 34.) 


{Listing One: Declarations of data structures 
used by hashing and symbol table routines. } 
CONST 
symbol hash size = 100; 
{Number of buckets - 1 in the hash table. 
I believe it should be a prime - 1.} 


TYPE 
str255 = String [255]; {General large str} 


symbol data = RECORD 
{Data to be associated with identifier} 
usecount: INTEGER; 

END; 


symbol name = String [255]; 
{Symbol identifier is a string} 


symbol ptr = “symbol Type; 
symbol _ range = 0..symbol_ hash_size; 
symbol Type = RECORD 
{identifier and its data} 
sym_ chain: symbol ptr; 
{Ptr to next symbol in list} 
sym_data: symbol data; 
{Type declared in the main program} 
sym name: symbol _ name; 
{Symbol name or identifier} 
END; 


symbol control = RECORD 
{Declare one of these in main program for 
each symbol table to be used} 
symbols, searches, notfound: INTEGER; 
probes: REAL; 
{Real because some counts exceed 32767} 
this bucket: symbol _ range; 
{Bucket # of last referenced symbol} 
this symbol: symbol ptr; 
{Pointer to last referenced symbol} 
Sym_ptr: ARRAY [symbol range] OF symbol ptr; 
{Buckets} 
END; End Listing One 


Listing Two 


{Listing 2: Routines to initialize the symbol 
table, insert a symbol, and locate a symbol, 
without MTF. } 


FUNCTION symbol size 
(VAR s_name: symbol name): INTEGER; 


{Return the size of memory required to contain 
a symbol named in s_name.} 


BEGIN 
symbol size := SIZEOF (symbol ptr) 

+ SIZEOF (symbol data) 

+ SUCC (LENGTH (s name)); 

END; Pe 


PROCEDURE symbol init (VAR sym: symbol control); 


{Initialize symbol control pointers. Call this 
before the first use of a Symbol Control area.} 
VAR 
1: symbol _ range; 
BEGIN 
WITH sym DO BEGIN 
FOR i := 0 TO symbol hash_size 


DO sym_ptr [i] := NIL; 
this bucket := 0; 
this symbol := NIL; 
symbols := 0; 
searches := 0; 
probes := 0.0; 
not found := 0; 
END; 
END; 


PROCEDURE symbol put (VAR sym: symbol control; 
S_name: symbol name; VAR s_ data: symbol data); 


{Insert symbol name and data in table. This 
routine does not check for duplicate symbol.} 


BEGIN 


Soc ee (continued on page 47) 
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he Al Starter Kit 
from LOGICWARE. 
All for $220.00. 


You are in the market for serious Al tools. You are just 
getting started — but you have plans for bigger, more 
serious work. Your purchasing criteria: 


You want an inexpensive product — but not an “Al toy”. 


You are doing your initial work on a PC — but you want 
a product that is flexible and portable. You want the 
option of expanding your serious work to other, larger 
computers. 


You do not want to face any dead ends a month or a 
year down the road. 


You want to invest in a product line that does not leave 
you stranded when you take that inevitable next step. 


Logicware Inc., the leading supplier of Prolog and 
Prolog-based Al tools, has a solution for you — our 
Al Starter Kit. This starter kit includes: 


The P-550 product: 

An inexpensive, but full-featured implementation of 
Prolog. It consists of our full MProlog interpreter and our 
interactive programming environment with a full screen 
editor. This product also contains Eagle Graphics — a 
full set of graphics predicates that allow you to create 
three-dimensional graphics for your PC applications. 


The Primer: 

Our introduction to the Prolog language and to the 
concepts of logic programming — a 500-page textbook 
and two-diskette tutorial software. The best hands-on 
introduction to Prolog on the market today. 


Both P-550 and the Primer software require 512K RAM, 
DOS 2.0 (or later) and a minimum of two floppy drives. 


MProlog is also available for IBM mainframes, DEC 
VAX and M68000 workstations. 


To order, clip and mail the postcard below. For more 
information call (416) 672-0300 and ask for Chris 
Glenn. 
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Data Entry Menus 


Windows 
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—&@ Total Screen Control 


C-scape is a combination screen generator and library of 
screen I/O functions. Written for C programmers, C-scape 
brings a fresh approach to the need for an easy-to-learn 
and use, but truly powerful and flexible screen manage- 
ment tool. 


C-scape’s kernel is your most powerful ally. Without re- 
quiring parameters you'll never use, it allows you to create 
tailored functions with ease and simplicity. Each key is in- 
dividually definable. If you know printf(), you can use 
C-scape. C-scape’s kernel provides a veritable screen 
design and construction toolkit to rewrite our functions or 
to write your own. 


&@ Most Powerful Prototyping Available 


C-scape offers a unique approach to prototyping your soft- 
ware. You may use Dan Bricklin’s Demo Program to 
create, edit, and view your screens (you can even capture 
existing screens from other programs), and then use 
C-scape’s demo2c utility to convert each screen to code. 


You can design each screen with attributes such as colors, 
menu selections, data entry fields (including type, valida- 
tion, and field naming), masking, and text, and then 
automatically convert the entire screen to code. 


—@ Powerful Function Library 


Use C-scape’s functions for Lotus-like, pull-down, or your 
own menu designs, automatic scrolling, pop-up windows 
(number limited only by RAM), logical colors, help, time 
and date, yes/no, tickertape fields, secure and protected 
fields, and many others, to turn your demo into a fully 
functioning and complete program in a fraction of the time 
spent coding screens from scratch. 


C-scape’s extensive library includes just about all the data 
entry and display functions you’ll ever need, including 
money functions, fully definable borders, and orthogonal 
field movement (get the latest list by calling for more infor- 
mation). And modifying our functions or writing your own 
is easy. C-scape adjusts automatically for CGA, EGA, 
monochrome, and the Hercules Graphics Card Plus in 
RamFont mode, and optionally writes directly to video 
memory, so it’s flexible and fast. 


Oakland Group, Inc.©) 


675 Massachusetts Avenue, Cambridge, MA 02139-3309 


@ Bridges to Power 


C-scape includes examples of how to bridge to other 
powerful tools such as c-tree and db__ VISTA. You'll be in- 
tegrating demos to dictionaries to file handlers and 
database managers in no time. You can even use C-scape 
to provide the screen design for Al applications, using 
TransLisp Plus and other packages that support calls to C. 


@ Clean, Complete Documentation 


C-scape’s documentation is a clear example of how to 
write for programmers in a hurry. A short introduction uses 
helpful examples to explain the C-scape design. Each func- 
tion is documented separately. An index makes reference 
easy, and a quick-reference card provides a synopsis of 
each function. 


@ Source Code Included/Portable/No 
Royalties/No Runtime License 


Providing source code at no additional cost gives you the 
freedom to modify existing functions without raising cost as 
a barrier. The source code includes all the low level 
routines you might need to port C-scape to an unsupported 
machine or compiler. Speaking of barriers, you pay no 
royalties or runtime license fees, either. 


@ Toll Free Support and Bulletin Board 


To make your job even easier, we provide technical sup- 
port (toll free), and access to our 24-hour Bulletin Board. 


lM Easy Prices/Risk-Free Terms 

Try C-scape for 30 days. If you are not satisfied, return it 
for a refund. When you register, we send you source code. 
Order C-scape today, or call toll free for more information. 


See why some very major groups are standardizing on 
C-scape. 


C-scape (Lattice/Microsoft/others) 


C-scape with Dan Bricklin’s Demo Program $249 


Please add $3 for shipping; Massachusetts orders add 5% 
sales tax. 


CALL TODAY! 
617-491-7311 
800-233-3733 
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Listing Two (Listing continued, text begins on page 34.) The Aspen Systems Subroutine Editor (ASE) you can call 
; from your programs. Design your own screen layouts - - 
this bucket := symbol hash (s_name); update in several windows simultaneously. ASE is: 
ee a oe. 1, symbol_size (s_name)); * TRANSPORTABLE - can be configured for any 
ehie eyuies” DO BEGIN keyboard and almost any computer or language 
sym_chain := sym ptr (this bucket]; under MSDOS. 
sym_data ee Poveney * VERSATILE - customize input for any application. 
gi Se outs ae eT cde * COMPLETE - with full screen edit capabilities and a 
ae r [this_bucket] := this_symbol; wide variety of automatic conversions. 
senbSle.<= SOC ‘tesanili si © eae wag, data and screen layouts described 
END; hace 
END: * FULLY DOCUMENTED - including examples in BASIC, 
; PASCAL, FORTRAN, C, and even COBOL. 
FUNCTION symbol get *x AFFORDABLE- 
(VAR sym: symbol control; s_name: symbol name; five. 1S StibOnivis. he i a eee $99 
Re an eras CYR OSU AL + BOuuarne DEMO (See what ASE can do for you!)......... $ 3 
tae tee be ee ee ee The Aspen Systems Subroutine Package (ASP) - the 
Ca ype! bat specitgibe kin ve pyimbol Hae companion package for ASE - with many functions 
Sant this symbol tu tite evebol table enbry,\and ee nee, Jerelasab to perform in high level languages. 
return TRUE. If the symbol is not found leave ae ‘ ae 
s_data unchanged, leave this symbol undefined, TRANSPORTABLE * FULLY DOCUMENTED 
and return FALSE. This version does NOT EFFICIENT * AFFORDABLE 
implement the MTF algorithm. } 
ASP includes 150+ subroutines: conversions: sorts; 
= string, bit, date/time functions: decimal arithmetic, 
p: symbol ptr; {work pointer} and MORE 
BEGIN Eas 
WITH sym DO BEGIN Pir tS Sth GY... soc Ure Demin Re win nls en ibe eae $130 
this_bucket := symbol hash (s name); ASE and ASP include support and demo programs. 
p := sym ptr [this bucket]; 
symbol get := FALSE; Prices are PPD (continental USA). 
IF p = NIL THEN 


Grand Junction, CO 81502 
yitue p ee NEs BO WEE oF oe eel | SO) a ee 

hina ss arene . 6GPEN VISA/MasterCard accepted 
IF s name = sym _name THEN BEGIN CP Mand MS-DOS are trademarks of 

{found it! } GYBTEMSE Digital Research and Microsoft, respectively. 

S_ data := sym data; 

this symbol := p; 

p := NIL; 

symbol get := TRUE; 
END ELSE BEGIN 

{not this one, chain to the next} 

p := sym chain; 


Circle no. 277 on reader service card. 


C CODE FOR THE PC 


ee source code, of course 
notfound := SUCC (not found); 
END; ee ee 
END; Be 
son End Listing Two GraphiC 3.0 hi-res color plots 
Listing Three Panache C Program Generator 


{Listing 3: Hash functions, presented as a 


single Pascal function with case statement QC88 C Compiler GUS Ce 
controlled by a global variable ‘*hashtype'' 


to select one of the four routines.} . Concurrent C ae’? . et ihn ene (erect 


{First the table used by the CRC-16 routine, 
this from a public domain file uncompression 
program: DeArc, by Bela Lubkin.} 


Coder’s ProloginC.. . 
Biggerstaff’s System Tools 


const crctab : array [0..255] of integer = 
($0000, $COC1, $C181, $0140, $C301, $03C0, $0280, Translate Rules to C ras 


$C241, $C601, $06C0, $0780, $C741, $0500, $CSCl, LEX 

$C481, $0440, $CCO1, $OCCO, $OD80, $CD41, SOFOO, ee: Fe a Weep 
SCFC1, $CE81, $0E40, $OA00, SCAC1, S$CB81, $OB40, 

$c901, $09C0, $0880, $C841, $D801, $18C0O, $1980, | YACC & PREP eg on 8 
$D941, $1B00, $DBCl, $DA81, $1A40, $1E00, S$DEC1l, 

SDF81, $1F40, $DD01, $1DCO, $1C80, $DC41, $1400, 
SD4Cl, $D581, $1540, $D701, $17C0, $1680, $Dé641, 


tiny-c interpreter & shell 


$D201, $12C0, $1380, $D341, $1100, $D1C1, $D081, Ce TR. es a es as, agin 

$1040, $F001, $30C0, $3180, $F141, $3300, $F3C1, 

$35C0O, $3480, $F441, $3C00, $FCC1, $SFD81, $3D40, 

SFFO1, $3FCO, $3E80, $FE41, $FAQ1, $3AC0, $3B80, ; 

SFB41, $3900, $F9C1, $F881, $3840, $2800, $E8Cl, The Austin Code Works 
SE981, $2940, SEBO1, $2BCO, $2A80, $EA41, $EEO1, 11100 Leafwood Lane 
$2ECO, $2F80, SEF41, $2D00, $EDC1, $EC81, $2C40, | 

SE401, $24C0, $2580, $E541, $2700, $E7Cl, $E681, Austin, Texas 78750-8409 


$2640, $2200, $E2C1, $E381, $2340, $E101, $21C0, (512) 258-0785 
$2080, $E041, $A001, $60C0, $6180, $A141, $6300, 
SA3C1, $A281, $6240, $6600, $A6Cl, $A781, $6740, Circle no. 250 on reader service card. 


(continued on next page) Free shipping on prepaid orders No credit cards 
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Listing Three (Listing continued, text begins on page 34.) oe 


SA501, $65C0, $6480, $A441, $6C00, SACC1, SAD81, 
$6D40, SAFO1, $6FCO, $6E80, SAE41, $SAA01, S6ACO, 
$6B80, $AB41, $6900, $A9C1, $A881, $6840, $7800, 
$B8Cl, $B981, $7940, $BBO1, $7BCO, $7A80, SBA41, 
SBE01, $7ECO, $7F80, $BF41, $7D00, SBDC1, $BC81, 
$7040, $B401, $74C0, $7580, $B541, $7700, SB7Cl, 
$B681, $7640, $7200, $B2Cl1, $B381, $7340, $B101, 
$71C0, $7080, $B041, $5000, $90C1, $9181, $5140, 
$9301, $53C0, $5280, $9241, $9601, $56C0, $5780, 
$9741, $5500, $95C1, $9481, $5440, $9C01, $5CCO, 
$5D80, $9D41, S$SFOO, $9FC1, $9E81, $5E40, $5A00, 
$9AC1, $9B81, $5B40, $9901, $59C0, $5880, $9841, 
$8801, $48C0O, $4980, $8941, $4B00, $8BC1l, $8A81, 
$4A40, $4E00, S8EC1, $8F81, $4F40, $8D01, $4DCO, 
$4C80, $8C41, $4400, $84C1l, $8581, $4540, $8701, 
$4700, $4680, $8641, $8201, $42C0, $4380, $8341, 
$4100, $81C1, $8081, $4040 ); 


FUNCTION symbol hash 
(VAR s_name: symbol name) : symbol range; 


{Hash the symbol name to a number between 
O and the hash table size.} 


VAR 


i, j: INTEGER; 
BEGIN 


CASE hashtype OF 


1: BEGIN {Sum of the characters + length} 
J. se Og 
FOR i := 0 to LENGTH (s_name) DO 
J := 3 + ORD (s_name [1i]}); 
symbol hash := 
j MOD SUCC (symbol hash_ size); 
END; 
2: BEGIN {First + Last + Length} 
symbol hash := 
((ORD (s_name [1]) SHL 8) 
+ ORD (s_name [Length (s_name) }) 
+ Length (s_name)) 
MOD SUCC (symbol _hash_size); 


Along With Your Computer, Your Time 
is the Most Important Thing You 
Own. . .So Why Waste It? 





Quilt Programmer Productivity 
Tools will help you manage your 
software projects and get control 
of your time! 


SRMS”™™ 


Software Revision Management System 


QMAKE™ 


Automatic System Generation Utility 


SRMS is a full featured revision control 
system that allows programmers, system 
managers, and librarians to get control 

of software projects. SRMS stores every 
version of a source program in a single 
ASCII file, with the ability to restore each 
and every version easily and quickly. Only 
changes (deltas) between versions are 
actually stored, so disk usage is drastically 
reduced. Each version isstored witha 
unique Version Identification String and 


QMAKE {fs a powerful and flexible utility 
that can be used to control the rebuilding 
of simple or complex software systems. 
QMAKE relieves the software developer 
of the task of remembering which mo- 
dules of a system need to be rebuilt based 
on recent changes, how to rebuild them, 
and in what order to rebuild them. Once 
you specify the relationships and com- 
mands necessary to rebuild your system, 
and place them in a control file, called 


unlimited user supplied comments, 
making identification and documentation 
tasks easy. SRMS supports projects writ- 
ten in any language, and allows you to use 
your current editor and compiler without 
conflict. Version MERGE facilities help 
consolidate parallel development efforts. 
SRMS also incorporates the use of classes 
to bind various versions of different mo- 
dules together for reconstructing a particu- 
lar software system release. DOS directory 
pathnames and environment variable sup- 
port also aid you in your work. Full typeset 
documentation with tutorial and project 
management chapters. 


SUNOS = “4s; ca cenantarniabenibaedowciec’ $ 125.00 


a makefile, QMAKE can be used to re- 
build your system through the invocation 
of a single command. 


QMAKE will work with most compilers, 
assemblers, and linkers. It supports full 
macro definitions, UNIX makefile com- 
patability, recursive invocations, and 
interpretation of even the most complex 
dependancies. 

QMAKE will also interface with our 
Software Revision Management System 
providing you with a complete set of 
productivity tools to handle any of your 
project requirements. Full typeset do- 
cumentation with tutorial. 


QMAKE 


SRMS + QMAKE ........... $ 199.00 


<a 


LT 7048 Stratford Road 
Ww 
IC oodbury, MN 55125 


ES 
V/SA 
Ea 


we Hg edna Dealer ingurice Welcome 
48 Circle no. 107 on reader service card. 


BEGIN {HashPJW} 
j} := 0; 
FOR i : 
J := (j SHL 4) + ORD (s_name [i]); 
IF (3 AND S$FO00) <> O THEN 

4 := j XOR (j SHR 12) AND SOFFF; 


= 1 TO LENGTH (s_name) DO BEGIN 


END; 
symbol hash := (j AND $7FFF) 

MOD SUCC (symbol _hash_size); 
END; 
BEGIN {CRC-16} 
j-2*-0; 
FOR := 1 TO LENGTH (s_name) DO 

J := (j SHR 8) XOR 

crctab [(j XOR ORD 
(s name [{i]))) AND SOOFF); 

symbol hash := (j AND $7FFF) 


MOD SUCC (symbol hash_size); 
END; 


else symbol hash := 0; 
{Not specified, punish the user} 
END; eet 
END; End Listing Three 
Listing Four 


{Listing 4: Symbol distribution function U(h,t) } 


FUNCTION symbol distribution 
(VAR sym: symbol control): REAL; 


{Compute the distribution test as outlined in 
Aho, et al. This function approaches 1.0 as 
the “*randomness'' of the hashing improves. } 


VAR 

: symbol ptr; 

ein) mM, Fs REAL? 

: symbol range; 

: INTEGER; : 

N (continued on page 50) 


G9 % coven 
Power Tools 


TOOL BOX 1 


cat cp expand fold more mv newer 
page rm unexpand 


p 
b 
i 
J 
I 





SYSMAKE 
with advanced features from the 


new UNIX Version 8 
For MSDOS and CP/M 


I/O redirection ¢ wildcard expansion 
exclusions ¢ full documentation 


NIRVONIGS ins 


PO. Box 5062 
Plainfield, NJ 07061 


Trademarks — UNIX: Bell Labs, MSDOS: Microsoft, CP/M: Digital Research 
Circle no. 331 on reader service card. 
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TEXT LINE 6 COL: ry FILE: VEDPLUS.TXT INSERT 


WINDOW 1 WINDOW 2 
VEDIT PLUS is an advanced editor that bidlist ( infile ) 
makes your program development and FILE *infile: 

word processing as efficient and 

easy as possible. VEDIT PLUS is register i; 
simple enough to learn and use for struct node “ptr: 
the novice, [get has the speed, 

flexibility and power to satisfy the 

most demanding computer professional. 
VEDIT PLUS is particulariy suited for tan) 

writing all types of programs and head = tail = ptr; 
lengthy documents such as reports or Pasa 
manuscripts. tail -)next=ptr: 
ie e) ag 


for (1:0; i¢termlim; i++) { 


This shows how VEDIT PLUS can perform 
windowing. One window is used for tail-)next = NULL; 
word processing, a second for program 
development, and the third for ; 
commands. return ( termlim qi 


WINDOW $ 


VPLUSPC .COM INSTALL .EXE LIHARD  .BAT T 

LIGHT .COM  ENVI .COM -NUM DISK 

VEDIT NI RAM2 DIC IBM THES 
LIGHT -HLP RAM3 .DIC PRINT -EXC INSTALL INI 





VEDIT PLUS has been the#1 choice of professionals 
since 1980. Our latest release is even better - you can 
open windows to simultaneously edit several files, ac- 
cess many editing functions with pop-up menus, use 
keystroke macros to speed editing, and run other pro- 
grams or DOS commands from within VEDIT PLUS. 


Whether your needs are program development, tech- 
nical writing or word processing, VEDIT PLUS is your 
answer. With over 40,000 users you can depend on 
VEDIT PLUS to perform consistently and reliably. It is 
simple enough to learn for the novice, yet has the 
speed, flexibility and power to satisfy the most de- 
manding professional. 


Compare. No other editor is as powerful - unlimited 
keystroke macros, instant ‘off-the-cuff command mac- 
ros utilizing a complete programming language, sin- 
gle command file comparison, special word process- 
ing and programming features. No other editor is as 
easy to use - on-line help, pop-up menus, 75 page 
tutorial, 380 page manual, and VEDIT PLUS is com- 
pletely customizable. 


Fully supports color windows on IBM CGA & EGA, and 
even windows on most CRT terminals (including CRT’s 
connected to an IBM PC). Available for IBM PC, TI 
Professional, Tandy 2000, DEC Rainbow, Wang PC, 
MS-DOS, CP/M-86 and CP/M-80. Order direct or from 
your dealer. $185 


“To sum things up, VEDIT PLUS is a small, fast, 
sophisticated editor with a wealth of features and a 
good macro language. It offers many rewards forthe 
dedicated programmer.” 

Computer Language, Chris Wolf, Scott 

Lewis, Mark Gayman 6/86 


“VEDIT PLUS is a wholly remarkable program: 
blindingly fast, extremely powerful, and highly flex- 
ible.” 

Profiles Magazine, Robert Lavenda 4/86 


VEDIT and CompuvView are registered trademarks of CompuView Products, Inc. MS- 
DOS is a registered trademark of Microsoft. CP/M is a registered trademark of Digital 


Research. WordStar is a registered trademark of MicroPro. 


Circle no. 122 on reader service card. 


He malloc ( NODESIZE FE 


load __str( &(tail-)header), 








# CHOICE IN 
PROGRAMMABLE 
EDITORS 


VEDIT PLUS FEATURES 


e Simultaneously edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual’ disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname and CP/M user number support. 

e Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 text registers. 

e Customization - determine your own keyboard layout, create 
your own editing functions, support any screen size, any CRT. 

e Optimized for IBM PC/XT/AT. Also 132 column & up to 70 lines. 


EASY TO USE 


e interactive on-line help is user changeable and expandable. 
e On-line integer calculator (also algebraic expressions). 

e Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I or PASCAL. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language 
labels, opcodes, operands with comments unchanged. 

e Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e Word Wrap and paragraph formatting at adjustable margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

e Convert WordStar and mainframe files. 

e Print any portion of file; separate printer margins. 


MACRO PROGRAMMING LANGUAGE 


e ‘If-then-else’, looping, testing, branching, user prompts key- 
board input, 17 bit algebraic expressions, variables. 

e CRT emulation within windows, Forms entry. 

e Simplifies complex text processing, formatting, conversions 
and translations. 

e Complete TECO capability. 

e Free macros: e Full screen file compare/merge e Sort mailing 
lists e Print Formatter e Main menu 





CompuView 


1955 Pauline Blvd., Ann Arbor, Mi 48103 (313) 996-1299, TELEX 701821 
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Er s=. G20; 
WITH sym DO BEGIN 
FOR i := 0 to symbol hash_size DO BEGIN 
p := sym ptr [i]; 
1:32. 03 
WHILE p <> NIL DO 
WITH p* DO BEGIN {count the list} 
p := sym chain; 
J := SUCC (3); 


+ AD-* (5. + 1.0})--7: 2208 


tr 


b 
r 
ND; 
= SUCC (symbol _hash_size); 
= symbols; 
symbol _ distribution := r / 


tin. 7 (2.0°* my} -* H+ 2.0 © m.— 2.0)? 


3 3 


END; 
END; 


Listing Five 
{Listing 5: Symbol search with MTF} 


End Listing Four 


{Note: for the purposes of the test program, the 
application of MTF is controlled by a global 
boolean variable “*mtf'*' set by the main program. 
The test for this boolean should be removed ina 
production version of the routine. MTF with all 
its performance advantages is accomplished with 
the addition of seven lines of code! } 


FUNCTION symbol get 
(VAR sym: symbol control; s_name: symbol _ name; 
VAR s_ data: symbol data): BOOLEAN; 


{Retrieve a symbol. If the found, s_ data is set 
to the data stored by the last call to symbol put 
specifying the same symbol name, this_symbol 
points to the symbol table found, the symbol is 
moved to the front of the chain, and the function 





(Listing continued, text begins on page 34. ) 


returns TRUE. If the symbol is not found s data 


is unchanged, this symbol is undefined, and the 
function returns FALSE. } 


VAR 
p: symbol ptr; {work pointer} 
BEGIN 
WITH sym DO BEGIN 
this bucket := symbol hash (s_name); 
p := sym ptr [this bucket]; 
symbol get := FALSE; 
this symbol := NIL; 
searches := SUCC (searches) ; 
IF p = NIL THEN notfound := SUCC (notfound); 
WHILE p <> NIL DO WITH p* DO BEGIN 
probes := probes + 1.0; 
IF s_ name = sym_name THEN BEGIN 
{found it!} 
IF this symbol <> NIL THEN IF mtf THEN 
BEGIN {Move it to the front} 
this symbol*.sym chain := sym chain; 
sym_ chain := sym ptr [this bucket]; 
sym ptr [this bucket] := p; 
END; 
S data := sym data; 
this symbol := p; 
p := NIL; 
symbol get := TRUE; 
END ELSE BEGIN 
{not this one, chain to the next} 
this symbol := p; 
p := sym chain; 
if p = NIL THEN 
notfound := SUCC (not found) ; 
END; 
END; 
END; 
END; 


End Listings 








WINDOWS FOR DATA” 
DATA ENTRY WINDOWS MENUS’ HELP 


Windows for Data does the hard jobs 
that others cant — we quarantee it. 
Makes standard display and entry tasks 
easy. Reliable. Compact. Portable. 


DATA ENTRY: The most complete and 
flexible data entry system on the market. 
Pop-up data-entry windows; field types for 
all C data types, plus decimals, dates, and 
times; auto conversion to and from strings 
for all field types; system and user-supplied 
validation functions; range-checking; 
scrollable context-sensitive help; required 
and must-fill fields; programmer-definable 
edit keys, field types, and field masks. Read 
field by field or auto-read all fields. Branch 


UNPRECEDENTED FLEXIBILITY 


UNIX, DOS, OR BOTH 


WFC and WED provide source code com- 
patibility between PCDOS and UNIX. 


OUR CHALLENGE AND 
GUARANTEE 


If you have an application where no 
other tool can do the job, try Windows 
for Data. If it doesn't help you solve 
your problem, RETURN FOR A FULL 
REFUND. YOU MUST BE SATISFIED. 


WINDOWS WINDOWS 
FOR DATA FOR C 


and nest window forms. Virtually every 
capability of WFD can be modified 
to meet special needs. 


WINDOWS: WED is built upon and in- 
cludes Windows for C, the windowing 
system rated #1 in PC Tech Journal 
(William Hunt, July 1985). WFC now has 
more features than ever, including auto- 
matic full compatibility with Microsoft 
Windows and TopView. 
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As many possibilities as Vermont in June. 


MENUS: Build multi-level menus in the 
format of Lotus 1-2-3, Macintosh, or a style 
of your own choosing. 


HELP: Build context-sensitive or menu- 
driven help systems. Display text in pop-up, 
scrollable windows. 


Circle no. 157 on reader service card. 





PC DOS* $295 $195 
XENIX-286 $595 $395 
UNIX CALL CALL 


Call for FREE Demo diskette. 
“All popular C compilers; no royalties. 
21 Elm Ave. 
a pont Richford, VT 05476 
pera Sreatlve §02-848-7738, 
we Software oxi. 31. 


MasterCard & Visa Accepted. Shipping $3.50 
VT residents add 4% tax. 
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DR. JACK PURDUM 


Get the proven product from the man 
who wrote the books on “C’. 


C Programming Guide 
After reading the Ist edition, Jerry Pournelle (BYTE 
Magazine) said: “I recommend this book...Read it 
before trying to tackle Kernighan and 
Ritchie.” The second edition ex- 
pands this best seller and walks 
you through the C language in an 
easy-to-understand manner. 
Many of the error messages in- 
clude references to this book 
making it a perfect com- 
_ panion to Eco-C88 for those 
just starting out with C. 


$20 




















C Self-Study Guide 
(Purdum, Que Corp.) Designed for 
those learning C on their own. The 
book is filled with questions-answers 
designed to illustrate many of the 
tips, traps, and techniques of the 
C language. Although written to 
complement the Guide, it may 
be used with any introductory 
text on C. 

$17 


C Programmer’s Library 

(Purdum, Leslie, Stegemoller, Que 
Corp.) This best seller is an inter- 
mediate text designed to teach you 
how to write library functions in a 
generalized fashion. The book 
covers many advanced C topics 
and contains many useful ad- 
ditions to your library including 


$22 


CED Program Editor 

CED now supports on-line function help. If you've 
forgotten how to use a standard library function, just 
type in the name of the function and CED gives you 
a brief summary, including function arguments. CED 
is a full screen editor with auto-flagging of source code 
errors, multiple windows, macros, and is fully con- 
figurable to suit your needs. You can edit, compile, 
link, and execute DOS commands from within the 
editor. Perfect for use with Eco-C88. For IBM PC, AT 
and look-alikes. $29.95 


C Source for Standard Library 

Contains all of the source code for the library func- 

tions that are distributed with Eco-C88, excluding the 

transcendentals and functions written in assembler. 
$10 ($20 if not with order) 

Developer’s Library 

Contains all the source code for the standard library, 

including transcendental and assembler functions. 

Available with compiler purchase only. 


$25 ($50 if not with order) 








Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 















a complete ISAM file handler. 


: Circle 


NOTHING IN 
THIS PRICE 
RANGE EVEN 
COMES CLOSE. 


“Ecosoft’s Eco-C is going to turn some 
major heads.” 


“Eco-C is the first compiler reviewed that 
has clearly begun implementing the 
coming ANSI standard. Eco-C supports 
prototyping.” 

“Eco-C performed well on all the bench- 
marks, generating code that was quite 
comparable to that of compilers 10 times 
as costly.” 














from: 

Christopher Skelly 
Computer Language, 
Feb., 1986 


“The driver program is another strength: 
it compiles and links a list of files and 
provides a simple MAKE capability.” 


“This compiler does handle syntax errors 
much better than average—no ava- 
lanche of spurious messages here.” 

from: 

William Hunt 

PC Tech Journal, 

Jan., 1986 


“Eco-C88 is a high-quality package... 
comparable to systems costing much more.” 


“Eco-C88 is one of the fastest...” 


“It is convenient to use, works well, and 
produces acceptably compact and fast 
programs.” 


from: 
Dr. David Clark 
Byte, Jan., 1986 






Minimum System Requirements: 


89 on reader service card. 


| THE FIRST PROFESSIONAL 
‘C COMPILER FOR UND 


Full-featured C compiler. Supports all 
C features, data types (except bit fields), 
and operators. 


New Language Enhancements. You 
also get prototyping, enum and void 
data types, plus structure passing and 
assignment. 























Tiered Error Checking. All syntax er- 
rors are automatically flagged, but you 
can select the level of “link-like” seman- 
tic error checking you want. 


Complete Standard Library. Over 200 
functions, many of which are System V 
compatible for greater source code 
portability. 


Screen and Memory Functions. Now 
you can write programs that use color, 
cursor addressing, even ones that let you 
design your own graphics functions. You 
also get memfiles™ that allow you to ac- 
cess memory outside the normal data 
segment as a file. 


matrix 





Orders only: 





Computer 
Eco-C88 | Lattice | Inn. C86 | Microsoft | Williams 


1-800-952-0472 










8087 and 80287 Support. If you have 
one of these math chips, your programs 
will take immediate advantage of it. If 
you don't have one, the code automat- 
ically switches to software floating point. 


Full Screen Editor. The CED editor is a 
full screen editor with multiple windows, 
macro commands, on-line function help, 
plus a full set of editing commands. (Re- 
quires a true IBM PC compatible.) You 
can edit, compile, link, and execute pro- 
grams from the editor which greatly 
reduces development time. 


Includes a cc and mini-make™. The 
UNIX-like cc makes compiling pro- 

grams a snap. You can run cc from 
within the CED editor. 


ASM or OBJ Output. You can select 
assembler or relocatable output from the 
compiler. Both are MASM compatible 
and ready for use with the MSDOS 
linker to produce EXE filés. 









2 CE ee ee a a, BS SO a ee ee ee 
ORDER FORM CLIP & MAIL TO: Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 


g L} C Compiler $59.95 

gL C Programming Guide $20.00 
BO CSelf-Study Guide $17.00 

§ 0 C Programmer’s Library $22.00 
BO cep Program Editor $29.95 


CL) C Source for Standard Library $10.00 ($20.00 if not with order) 


To use Eco-C88 Release 3.0, you must ff 5 Developer's Library $25.00 ($50.00 if not with order) 


have: 

1. An IBM PC, XT, or AT-compatible 
computer with monitor. 

2. 256K or more memory. 

3. Two 360K disk drives, or a hard disk. 

4. PC or MSDOS 2.1 or later to include 
the MSDOS linker. 


Eco-C88, mini-make, memfiles and CED 
are trademarks of Ecosoft Inc. 

IBM is a trademark of International 
Business Machines. 

UNIX is a trademark of Bell Labs. 
MSDOS and MASM are trademarks of 
Microsoft. 


















SHIPPING $4.00 
: TOTAL (IND. RES. ADD 5% TAX) 
PAYMENT: [] VISA L] MC L] AE [|] CHECK 
g CARD ¢ EXPIR. DATE 
§ NAME 
B ADDRESS 
8 cry STATE 
e zIP PHONE 





2 no. BS on 





Listing One (Text begins on page 90. ) 


1 char *cpy( dest, src ) 
2 register char *dest, *src; 
ar 
4 /* Works like strcpy but returns a pointer 
a * to the new end of string (ie. to the null). 
6 =f 
7 
8 while( *src ) 
9 *dest++ = *srctt+ ; 
10 
11 *dest = 0; 
12 return dest; 
ij 
Listing Two 
ke DATE.C Get the date from dos 
2S 
3 
4 #include <dos.h> 
5 
6 extern int intdos( union REGS*, union REGS* ); 
4 
8 /*-------------------------------------------------- */ 
9 
10 date( month, day, year, day of the week ) 
Lt: 2n€ *month, *day, *year, *day of the week ; 
on 
13 i* Return the month, day, year, and day of the 
14 : week (0 = sunday, 6 = saturday). 
15 */ 
16 
17 union REGS regs; 
18 
i3 regs.h.ah = 0x2a ; 
20 
21 intdos( &regs, &regs ); 
22 
23 *month = regs.h.dh ; 
24 *day = regs.h.dl ; 
Zo *year * Tegs.%.CcxX 
26 *day of the week = regs.h.al ; 
27-4 
28 
29 [*--- Rn -- - - - -  - - -- - -- - -- - -- - -- - -- - - - - -- - = == s/f 
30 
31 #ifdef DEBUG 
32 
33 main() 
34 { 
35 int month, day, year, day of the week; 
36 
an date( &month, &day, &year, &day of the week ); 
38 
39 printf("date is %td/%d/%d, day of the week = %d\n", 
40 month, day, year, day of the week ); 
41 } 
42 
43 #endif 
Listing Three 
1 /* HASH.H Header required by the hash functions in hash.c */ 
2 
3 
4 #define MAXNAME 32 
5 
6 typedef struct element _ 
Tey 
8 struct element _ *next; 
9 struct element _ **prev; 
10 char sname[ MAXNAME + 1]; 
qi. | 
12 BUCKET; 
13 
14 typedef struct hash _tab_ 
a5~{ 
16 BUCKET **table ; /* Pointer to hash table 7 
17 int size ; /* Max number of elements in table nf 
18 int numsyms ; /* number of elements currently in table */ 
19 .} 
20 HASH TAB; 
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End Listing One 


End Listing Two 
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/* symname() extracts the name field from a BUCKET: 
* p is a pointer returned from findsym, evaluates to the 
* contents of the sname field. 
ey 
#define symname(p) ( ((BUCKET*) (p) - 1)->sname ) 
extern char *addsym (HASH TAB *, char *, int )e 
extern void delsym (HASH TAB *, BUCKET *, }? 
extern char *findsym (HASH TAB “, , Ghar * hy 
extern HASH TAB *maketab (unsigned int )? 
extern void pstats (HASH TAB * 3 
extern int ptab (HASH_TAB *, void (*) () 3 


End Listing Three 


Listing Four 


1 #include <stdio.h> 
2 #include <ctype.h> 
#include <hash.h> 


a 


wos now & 


{* HASHTAB.C General-purpose hash table functions. 

* 

se (C) 1986, Allen I. Holub. All rights reserved. 

* 

* The hash table structures are defined in /include/hash.h. A HASH TAB 

* is a structure that contains the table size, the number of elements in 
* the table and a pointer to the table itself, this last an array of 

* BUCKET pointers. Colisions are resolved by putting the BUCKETS into 

* a doublely linked list: 

x 

* teen ----------- + +---------------- + 

* Vv | Vv | 

* +-------- + +——--+-+-+---+ +—--+t-+-+---+ 

a | i rapes >| Ll) eee >| ce he 4 

* fen + +---+---+---+ +---+---+---+ 

a tenn ie + name prev next name prev next 

* +-------- + 

*x 

* The leftmost box is the array pointed at by the HASH TAB structure. 

* It's an array of pointers to BUCKETS. The other boxes are BUCKETS. The 
* "next" field points at the next bucket in the chain or is NULL if there 
* isn't another bucket. The "prev" field points at the "next" field of the 
* previous bucket. In the case of the leftmost bucket, it will point at 

* the actual hash-table element. 

x 

* The BUCKET itself is actually a header, similar to the one used by 

* malloc(): 

x 

* +---------- + 

* | BUCKET | 

* $e een + 

* | user | <--- pointer returned from addsym() and findsym() 

, = memory = 

e | | 

* +—---------- + 

* 

* The pointer returned by addsym() of findsym() can be used as a 

* structure pointer by the applications program. 

"7 

#define max (a,b) ((a). >. (Bb). 7--(a} = ¢b)) 

#define min (a,b) ((a)- <: Gb) - 2. ta). *%.°@)) 

#define WLEN ( sizeof (unsigned) *8 ) /* # of bits in an unsigned int */ 
#define MAXINT (((unsigned)~0) >> 1) /* Largest signed integer */ 
#define MAXLEN 128 /* Used by pstat(), max number */ 

/* of expected chain lengths. =/ 

fj ip i cnn centri pa ee a eo i a tat iain 

* Prototypes for static functions (the global function prototypes are 

* in hashtab.h): 

af 

static unsigned hash ( char*, HASH_TAB*) ; 

static. int symcmp ( BUCKET**, BUCKET** )3 

/* -------------~- - -- - -- - — - - $e rn x/ 
static unsigned hash( name, tabp ) 
register char *name; 
HASH_TAB *tabp; 

{ 

-¥ Compute hash value. Note that the MOD table-length is 
® done my the calling routine. ; 
&/ (continued on next page) 
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Fortran Support 


Cay 
IBM PC/XT/AT & Compatibles 





Versions Available For: 


Microsoft, Supersoft, RyanMcFarland, 
IBM Professional, Lahey, & IBM 


Fortran. 
Forlib-Plus 
$69.95 


Supports graphics, interrupt driven com- 
munication, program chaining, and file 
handling/ disk support. A Fortran coded 
subroutine is included which will plot data 
on the screen either in linear/linear, log/ 
linear, linear/log, or log/log on the appro- 
priate grid. 


Strings & Things 
$69.95 


Supports string maipulations, command 
line usage, DOS call capabilities, SHELL 
generation and data transmission, BATCH 
file control, music generation, PEEKS and 
POKES, PORT access, and general register 
manipulations. 


For- Winds 
$89.95 


Gives the Fortran programmer the capa- 
bility of generating up to 255 windows on 
the screen. Each window can be individually 
scrolled, moved, sized, generated, and 
removed. Both color and monochrome type 
displays are supported. Full source code is 
supplied for customization. 


ACS Time Series 
$495.00 


This is a COMPLETE time series analysis 
package which contains VERY HIGH 
SPEED FFTs, Filter generations, convo- 
lutions, transfer function calculations, auto 
and cross spectra calculations, Cepstrum, 
curve fitting algorithims, coherence calcu- 
lations, and many other associated routines. 
The price includes FULL source code. 


Fortran Scientific 
Subroutine Package 
$295.00 


There are approximately 100 Fortran sub- 
routines included which fall under the 
following 12 categories: 

1) Matrix storage and Operations 2) 
Correlation and Regression, 3) Design 
Analysis (ANOVA), 4) Descriminant Anal- 
ysis, 5) Factor Analysis, 6) Eigen Analysis, 7) 
Time Series, 8) Nonparametric Statistics, 9) 
Distribution Functions, 10) Linear Analysis, 
11) Polynomial Solutions, 12) Data 
Screening. Full source code is included. 


ALA 


COMPUTER 
@@™M™ SERVICE 


ALPHA COMPUTER SERVICE 
5300 ORANGE AVENUE SUITE 108 
CYPRESS, CALIFORNIA 90630 
(714) 828- 0286 


California Residents 


Include 6% Sales Tax There are NO license fees 


Circle no. 321 on reader service card. 
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Software 


Developers: 


FAR EAST BUSINESS 
OPPORTUNITY 





Kanematsu-Gosho, a prominent Japanese 
trading company, in conjuction with Tokai 
Create, one of Japan’s largest software 
marketing firms are soliciting submissions 
of business related applications software 
for consideration for export to the Japa- 
nese market. 


The Japanese PC market as presently ap- 
proximately 2.5 million units with an an- 
ticipated annual growth rate of 25% over 
the next five years. This offer presents a 
unique opportunity for U.S. software de- 
velopers to enter this burgeoning market 
which has previously been difficult to 
break into. 


Your Japanese partners will be taking care 
of all the translation, marketing and sales 
functions in this most interesting market. 
Successful development companies will be 
rewarded with a substantial revenue 
stream for the term of the contract with 


Japan. 


Submitted products will be subjected to a 
series of evaluations. The initial U.S. based 
screening will be conducted by CSSL, Inc. 
the U.S. representative of the Japanese 
principals. Successful products will be for- 
warded to the U.S. offices of Kanematsu- 
Gosho for further testing and evaluation. 
Final evaluation will be completed by the 
parent companies in Tokyo. 


Please submit full working versions of 
your applications software no later than 
February 28, 1987 to: 


CSSL, INC. 
909 Electric Avenue 
Seal Beach, CA 90740 
Attn: Frank Westall, chairman 
Telephone inquiries: 213-493-2471 


ALL SUBMISSIONS WILL BE HELD IN THE 
STRICTEST CONFIDENCE. 
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Listing Four (Listing continued, text begins on page 90.) 


register unsigned h, g; 
for( h = 0; *name ; h += *namet+ ) 
return( h % tabp->size ); 
} 
[*anon nn 3 5 eo $n nnn nn nnn nn ners “/ 
HASH _TAB *maketab( maxsyms ) 
unsigned maxsyms; 
{ 
hs Make a hash table of the indicated size. It's a good 
idea to make maxsyms a prime number (though that's not 
required). Some useful primes are: 
47 61°69 113 t27 IST 193 211.257 °293 359..407 
ny 
extern HASH TAB *calloc(); 
HASH TAB *p; 
if( p = calloc(1, (maxsyms * sizeof (BUCKET *)) + sizeof (HASH_TAB) )) 
{ 
p->table = (BChed, 2). -p. + Lhe 
p->size = maxsyms ; 
p->numsyms = 0 ; 
} 
else 
{ 
err(“Insufficient memory for symbol table\n"); 
Sxit¢-1--}2 
} 
return p; 
} 
fF a er rr i a ta ie er a ec i pa per eee ten ee area ae ss ani ts eves es reer atime Quid alles ds nad lees mes x / 
char *addsym( tabp, name, size ) 
HASH TAB *tabp; 
char *name; 
{ 
g* Add a symbol to the hash table. 
“7 
BUCKET. **p, tmp ; 
BUCKET *sym; 
if( ! (sym = (BUCKET *) calloc( size + sizeof(BUCKET), 1)) ) 
ferr("Can't get memory for symbol\n"); 
strncpy( sym->sname, name, MAXNAME ); 
p= & (tabp->table) [ hash(name,tabp) ]; 
tmp sits) «ae 
*p ae oy 
sym->prev = p : 
sym->next = tmp ; 
LC tmp 4 
tmp->prev = &sym->next ; 
tabp->numsyms++; 
return (char *) (sym + 1); 
} 
f Be or er es ew ne ee wee ene wee neueeenuncuae x / 
char *findsym( tabp, name ) 
HASH TAB *tabp; 
char *name; 
{ 
/* Return a pointer to the hash table element having the 
* indicated name or NULL if the name isn't in the table. 
* If more than one such entry is the the table, the most- 
= recently added one is found. 
a 
BUCKET *p ; 
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ICs PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for DEC. 21, 1986 


27256 32Kx8 250 ns 4.96 


165 HASH TAB *tabp; 


5 Mhz $112.00 


153 OUTSIDE OKLAHOMA: NO SALES TAX 
154 p = (tabp->table)[{ hash(name,tabp) ]; . DYNAMIC RAM 
155 sam IMbit § 1000Kx1 100ns $38.50 
156 while( p && strncmp( name, p->sname, MAXNAME ) _ ) ied 51258 *256Kx1 100ns 9.95 
157 p = p->next; Em 4464 64Kx4 150ns _—3.29 
158 Mem 41256 3 256Kx1 100ns 3.84 
159 return (char *)( p ? p + 1 3: NULL ); ae 41256 256Kx1 120 ns 2.69 & 
160 } —s 41256 256Kx1 150 ns 2.49 
161 rag 4164 ade ns 1.30 
a ante al plan each fa tiap sient bari tca ereantaporers dnc ethics sims desided. NesttseSs copies o 4 
ee */ PEM 27512 — cakxs 200ns $14.95 [RS 
MEA. woke ee eee a 27C256 = =32kx8 250ns 5.51 ay 
So 
An 
“a 
FE: 









27128 16Kx8 250 ns 3.77 FE 
Pom BUCA SD 27C64.—s akx8 200ns_ ~— 4.52. IRS 
on 2764 skxs 250ns 3.27 [RS 
168 /* Remove a symbol from the hash table and free the memory. STATIC RAM © 
169 a “p" is a pointer returned from a previous findsym() call 62256LP-1232kx8 120 ns = 
170 * (it will actually be pointing just below the BUCKET header) 6264LP-15 8skxs 150ns 
171 - and "tabp" is a pointer to the HASH TAB structure. OPEN 612 DAYS, 7 aw-10 pm: SHIP VIA FED-EX ON SAT. 
ae - 
ae SAT DELIVERY | MasterCard/VISA or UPS CASH COD 
174 £Ft ip) INCLUDEDON | Factory New, Prime Parts uPoo 
175 ferr( “Internal error: bad pointer to delsym()" ); TRECEIVED ay. | MICROPROCESSORS UNLIMITED, INC. 
176 Th: Sid ir $6/4 ths | 24,000 S. Peoria Ave., (918) 267-4961 
77 le gta s Fr: P-One $13/2 Ibs | BEGGS, OK. 74421 ee ee 

P nums yms 7 Please call for current prices because prices are subject to change. Shipping & insurance extra 

ot i the nex morning, via Federal Express Standar Ait $600, or pony One "$1300 
179 
180 if( *(p->prev) = p->next ) Circle no. 105 on reader service card. 
181 p->next->prev = p->prev ; 
182 
183 free (p); 
184 } 
185 
186 /*--------------------------------~-------------------------------+----- */ 
187 


PC-DOS program 


188 static symcmp( sl, s2 ) 






ao se lets your PC 
191 return( strcomp( (*sl)->sname, (*s2)->sname ) ); Read/Write/Format 
as over 300 formats 
194 /*¥------- ee ee eee He He eH er ee ee eee ee ee ee ee Kee */ at 
Loo = D) 
196 ptab( tabp, print ) /* Print the hash table, sorted by key. */ SING nies s [S 
197 HASH TAB *tabp; /* pointer to the table */ re 
198 void (* print) ()3 /* print routine that is passed the */ $79.95 + $5.00 S/H Sales Tax if CA. 
L334 /* name and a pointer to the */ ; 
200 /* applications of an BUCKET. */ Upgrades available from previous versions 
201 Ask about FREE CP/M emulator! << 
202 BUCKET **outtab, **outp, *sym, **symtab ; To Order Contact: 
203 int 1; $i 
ss <ENGSRET 
205 s* Allocate memory for the outtab, an array of pointers to GEST 
206 * BUCKET, and initialize it. The outtab is different from 1454 Sixth Street, Berkeley, CA 94710 
207 * the actual hash table in that every outtab element points 
208 * to a single BUCKET structure, rather than to a linked list VISA | (415) 525-3113 3S 
209 * of them. ne 
210 * / Circle no. 225 on reader service card. 
211 
212 if( !(outtab = (BUCKET **) malloc(tabp->numsyms * sizeof (BUCKET*)))) Enhance Your Turbo 
on Pascal™ Programmin 
214 err("Insufficient memory to print symbols"); g | 
215 return; with 
_ TURBO-JET 
218 Netty & wokwahe ¢ Ultra Fast Screen Read and Display 
219 . : ¢ Advanced String and Numeric Formatting 
220 for( symtab = tabp->table, i = tabp->size ; --i >= 0;  symtabt+ ) chet pein bears Handling 
221 { ® SU al A Hit 
222 for( sym = *symtab ; sym; sym = sym->next ) ¢ Over 100 Files Included! 
223 *outp++ = sym; Pascal Source Code included with all Routines 
224 Routines Crafted in Assembly Language 
225 } No Royalties for Program Use 
226 Give Programs a Professional Look 
227 y* Sort the outtab and then print it. The (*outp)+1 in the Don’t Pay More For Less! 
228 . print call increments the pointer past the header part Dealer Inquiries Invited 
229 * of the BUCKET structure. - 
230 ‘/ TURBO-JET, Only $39.95 
231 

Add $3.00 for Postage & Handling 

- *« o 

AS qsort( outtab, tabp->numsyms, sizeof( BUCKET* ), symcmp ); NY Reciderts add <oles eax 
234 for( outp = outtab, i = tabp->numsyms; --i >= 0; outp++ ) TOC Business Solutions, Inc. 
235 (*print) ( (*outp)->sname, (*outp)+1 ); P.O. Box 129 
236 . Old Westbury, N.Y. 11568 
237 : (continued on next page) MC/VISA (516) 795-2800 


Circle no. 345 on reader service card. 
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Listing Four (Listing continued, text begins on page 90.) 





238 free( outtab ); 
239 } 
240 
241 /*-------------------------------~-~---------~---------+------------------- * / 
242 
243 void pstats( tabp ) 
244 HASH TAB *tabp; 
245 { 
} 246 /* Print out various statistics showing the lenghts of the 
Read what they re SaylINQ about 247 * chains (number of colisions) along with the mean depth 
this new concept in prototyping 248 x of non-empty chains, standard deviation, etc. 
and demo-making: bea ws 
“A winner right out of the 2a) BUCKET *p; /* Pointer to current hash element */ 
starting gate. After you use 252 int i; /* counter : */ 
DEMO once, you’ll wonder how 253 int chain_len; /* length of current collision chain */ 
you got along without it.’’ 254 int maxlen = 0; /* maximum chain length “ys 
— PC Magazine, 4/29/86 aaa int minlen = MAXINT; /* mimimum chain length */. 
256 int lengths[{ MAXLEN }; /* indexed by chain length, holds «/ 
‘“‘Everybody who writes aot /* the # of chains of that length. */ 
software, either commercially ae int longer = 0 ; /* # of chains longer than MAXLEN “Ff 
or for in-house applications, E 
should immediately order a cc memset ( lengths, 0, sizeof(lengths) ); 
copy. Period. No exceptions.”’ 262 for( i = 0; i < tabp->size ; i++ ) 
— Softletter, 4/20/86 263 { 
“a . 264 chain_len = 0; 
Its low price, superb 265 for( p = tabp->table[i] ; p; p = p->next ) 
performance, and range of 266 chain lent+; 
applications practically 267 
guarantee that it will be widely 268 if( chain_len >= MAXLEN ) 
used. Four Floppy Rating (8.0)”’ ave er eaGers 
— InfoWorld, 3/31/86 ae or 
271 ++lengths(chain_len}; 
“Apparently has a hit on its 272 
hands with ...a development 273 minlen = min( minlen, chain_len ); 
tool for personal computer oa maxlen = max( maxlen, chain_len ); 
software that has won rave 276 newsample( chain len ); 
reviews from early users. 277 } " 
— Computerworld, 4/7/86 278 
ad * 279 printf ("td entries in td element hash table, ", 
Agem. 280 tabp->numsyms, tabp->size ); 
— PC Week, 3/18/86 281 printf ("%d (%1.0£%%) empty.\n", 
282 lengths[0], ((double) lengths[0]/tabp->size) * 100.00); 
Product of the Month 564 
— PC Tech Journal, 3/86 284 printf ("Mean chain length: %d, max=%d, min=%d, deviation=%d\n", 
NO ® 285 running_mean(), maxlen, minlen, deviation() ); 
286 
- 287 for({ i = O; i < MAXLEN; i++ ) 
or 288 if( lengths{[i] ) 
O 289 printf ("%3d chains of length d\n", lengths[i], i ); 
290 if( longer ) 
_ Thousands of developers are de- 291 printf ("%3d chains of length %d or longer\n", longer, MAXLEN) ; 
signing better products faster and 292 } 
producing more effective demon- 293 
strations using Dan Bricklin's Demo So ea oe ee a IT wf 
Program. You can, too. Act now! 295 #ifdef DEBUG 


S ONLY S$ a 

MasterCard . 297 dpt ab ( addr ) 

Ce 74,95 298 HASH TAB *addr; 
==) 617-332-2240 39 | 22 ' 

aes 300 BUCKET **p, *bukp 3 


Massachusetts residents add $3.75. Outside of the 301 int ; 
U.S.A. add $15.00. 302 . 


Requires 256k IBM PC/compatible, DOS 2.0 or 
later. Supports Monochrome, Color/graphics, and 303 printf ("HASH TAB at 0x%04x (td element table, %d symbols) \n", 


EGA Adaptors (text mode only) 304 addr, addr->size, addr->numsyms ); 
305 

306 for( p = addr->table, i= 0 ; i < addr->size ; ++p, ++i ) 
307 { 

308 if( !*p ) 

309 continue; 





= 310 
ed ‘ ; 311 printf("Htab[%3d] Ox%04x:", i, p ); 
312 


S 
SOF | WARE 313 for( bukp = *p; bukp ; bukp=bukp->next ) 
314 { 


oh printf ("= Ox%x (%s) p=0x%x, n=0x%x, user=0x%x\n", 
GARDEN 316 bukp, bukp->sname, bukp->prev, bukp->next, bukptl); 
317 


Dept. D 318 printf (" ")3 
PO. 319 } 
O. Box 373, Newton Highlands, MA 02161 aaa (continued on page 58) 
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Turbo Tech Report 
neaks Your Language. 





TURBO — 
TECH . 
REPORT 
Turbo Waich 


we of porting cod Fes 
the three Turte Pasosi 
gnvircamsnts. 








iN THIS ISSUE: 
Mathematics: Expression Farsers for 
an-Time £ ahaer 





The newsletter/disk publication for Turbo Pascal® users 


Are you a devoted Turbo Pascal programmer, 
tired of reading about other languages? Are you 
looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or 
incorporate into your programs? Are you 
interested in improving and expanding your 
Turbo Pascal programming skills? 

Then you deserve a subscription to Turbo Tech 
Report. the bimonthly newsletter/disk publication 
from the publishers of Dr. Dobb's Journal and 
Micro/Systems Journal. Each issue delivers more 
than 250K of Turbo Pascal source code programs 
on disk, and 20+ pages of articles, Turbo Pascal 
software and book reviews, and analysis and 
commentary. It’s the only publication delivering 
such focused technical articles with code on 
disk—and it doesn’t waste your time with 
information about other programming 
languages. Each valuable issue contains: 

¢ Articles on topics like speedy 3D graphics, 
mathematical expression parsers, creating global 
gotos, memory resident and AI applications and 
more—all written by Turbo experts. 

e Reviews of the latest Turbo Pascal software 
programs from companies like Borland 


International, Blaise Computing, Media 
Cybernetics, Nostradamus, TurboPower Software, 
and more! 

¢ News and commentary detailing the 
latest products and developments in the Turbo 
Pascal programming community. 

¢ A disk filled with Turbo Pascal code! 
You'll get the Turbo Pascal utilities and routines 
discussed in the newsletter’s articles, as well as 
applications developed by Turbo users from 
around the world. You'll receive programs that 
make labels, generate menus, provide faster 
screen access, transfer files between CP/M and 
MS-DOS computers, and more! 

If you’re an expert Turbo Pascal programmer 
or a novice interested in expanding your Turbo 
skills, you need a publication that speaks your 
language: Turbo Tech Report. Subscribe today at 
the special price of just $99—that’s 33% off the 
regular price of $150. To order by credit card, 
call toll-free 1-800-528-6050 ext. 4001 and ask 
for item 300. Or mail the attached coupon with 
your payment to Turbo Tech Report, 501 
Galveston Drive, Redwood City, CA 94063. 


Turbo Pascal is a trademark of Borland International Inc. 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


HS 
FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
cause you can run all DOS com- 
mands plus COM and EXE programs 
from within HS/FORTH. Not be- 
Cause you Can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math pack. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
icS support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because I/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer. You could even transfer con- 
trol of your entire computer to a 
terminal thousands of miles away 
with a simple >COM <COM pair. 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don’t avoid the objections 
to Forth — WE ELIMINATE THEM! 


Public domain products may be 
cheap; but your time isn’t. Don’t 
shortchange yourself. Use the best. 
Use it now! 


HS/FORTH, complete system: $395. 
with “FORTH: A Text & Reference” 
by Kelly and Spies, Prentice-Hall 
and “The HS/FORTH Supplement” 
by Kelly and Callahan 


MasterCard 


Visa Mastercard 


HARVARD 
SOFTWORKS 


PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 


VISA® 
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321 
322 
323 
324 


Listing Four (Listing continued, text begins on page 90.) 






putchar (*\r") 3 
} 
} 
#endif 
Si se ie te at io een ecient too eft i areas me gg ail an Si a i al Nala Na eadahies ies ites edna x / 
#ifdef MAIN 
typedef struct. 
{ 
char striitéi-s 
int count; 
} 
STAB; 
J Wha eat ech il Aen Stag Sas as gt a Sk a Rl? eas ss Se, a a= ee, ti apf ah aise Nem ies lg x / 
getword( buf ) 
char *puf; 
{ 
#ifdef RANDOM /* ------------- Generate 500 random words ------------- */ 
static int wordnum = 500; 
int num letters, let; 
if( --wordnum < 0 ) 
return 0; 
while( (num_letters = rand() % 16) <3 ) 
while( --num_letters >=0 ) 
{ 
let = (rand({) % 26) + ‘a’ ; /* 26 letters in english */ 
*buft++ = (rand() % 10) ? let : toupper(let) ; 
} 
#else [*® anne nnn = Get words from standard input ---------- mF 
int Cc; 
while( (c = getchar()) != EOF && !(isalnum(c) || c=='_') ) 
if( c == EOF ) 
return 0; 
else 
{ 
*puf++ = c3 
while( (c = getchar()) != EOF && (isalnum(c) || c=='_') ) 
*buf++ = c; 
} 
fendif 
*buf = *\0'; 
return. i; 
} 
/* am a a oe ee eae ee ee, ee i, ce ak ee Geen | i _ de, at Ges ge ea ee ee ce ee eee ee ee x/ 
main( argc, argv ) 
{ 
char word[80]; 
STAB *SD; 
HASH TAB *tabp; 
tabp = maketab( 127 ); 
while( getword( word ) ) 
{ 
if( sp = (STAB *) findsym( tabp, word) ) 
{ 
if( strcomp(sp->str,"123456789abcdef") != 0 ) 
{ 
printf("NODE HAS BEEN ADULTERATED\n") ; 
exit 6.2.) 
} 
sp->count++; 
} 
else 


(continued on page 60) 
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Programmer’s Paradise Gives You os Selection, 
Personal Service and Unbeatable Prices! 


Welcome to Paradise. The PC/MS-DOS software source that caters to your individual programming needs. 
Discover the Many Advantages of Paradise... 


© Lowest price guaranteed 
e Latest versions 


® Huge inventory, immediate shipment 
® Knowledgeable sales staff 


LIST OURS LIST OURS 

C++ C UTILITY LIBRARIES 
ADVANTAGE C++ $ 495 CALL ASYNC MANAGER 175s 135 
PFORCE++ 395 CALL BASIC C 175 = 129 
C ESSENTIALS 100 85 
C COMPILERS C FOOD SMORGASBORD 150 98 
C-86 PLUS 497 CALL W/SOURCE 300 §=188 
DATALIGHT —C 49 C TOOLS PLUS 175-135 


60 
DATALIGHT —C DEVELOPER'S KIT 99 79 





ESSENTIAL C UTILITY LIBRARY = 185 


LATTICE C 3.2 500 289 ESSENTIAL COMMUNICATIONS 185 135 
LATTICE C W/SOURCE 900 545 W/BREAKOUT DEBUGGER 250 195 
LET’SC 75 ~=«#BO GREENLEAF FUNCTIONS 185 135 
W/CSD DEBUGGER 150 109 GREENLEAF COMM 185 135 
MICROSOFT C 4.0 450 275 THE HAMMER 195 175 
MARK WILLIAMS C 495 289 MULTI C 149 135 
SUPERSOFT C 395 339 MULTI COMM 149 135 
WIZARD C 450 369 PFORCE 395 245 
TIMESLICER 295 265 
C INTERPRETERS W/LIBRARY SOURCE 1000 CALL 
C-TERP 300 285 TOPVIEW TOOLBASKET 250 189 
INSTANT C 500 379 
INTRODUCING C 125 105 SCREEN DISPLAY, WINDOWS FOR C 
RUN/C 150 89 C WORTHY 295 269 
RUN/C PROFESSIONAL 1.1 250 169 CURSES 125 94 
W/SOURCE 250 184 
ASSEMBLERS, LINKERS DATA WINDOWS 295 159 
386|ASM/LINK 495 445 W/SOURCE 450 315 
ADVANTAGE LINK 395 349 FLASH UP WINDOWS 75 ~—«68 
MACRO-86 150 98 MICROSOFT WINDOWS 
PASM-86 195 135 DEVELOPMENT SYSTEM 500 329 
PLINK 86 PLUS 495 335 ON-LINE HELP 149-109 
QUELO 68000 X-ASM 595 509 PANEL 295 224 
SCREENPLAY (LATTICE) 150 135 
Polen Spec aoe le 
275 
olytron vee ° VITAMIN C 3.0 225 199 
VC SCREEN 99 84 
POLYBOOST WINDOWS FOR C 195 145 
POLYTRON C BEAUTIFIER 49 WINDOWS FOR DATA 295 250 
POLYTRON C LIBRARY I 99 Z VIEW 245 189 
POLYTRON POWERCOM 
POLYLIBRARIAN FILE MANAGEMENT 
POLYLIBRARIAN II BTRIEVE 245. 195 
POLYMAKE XTRIEVE 245 195 
POLYWINDOWS PRODUCTS W/REPORTGENERATION 390 315 
POLYXREF BTRIEVE/N 505 465 
POLYXREF (One Language Only) XTRIEVE/N 595 465 
PVCS W/REPORTGENERATION 940 750 
C TREE 395 329 
R TREE 295 249 
ie Lael c TREER TREE BUNDLE 650 529 
ADVANTAGE GRAPHICS 295 CALL ae Sen tae 
ESSENTIAL GRAPHICS 250 195 SOURCE a i om 
GSS GRAPHICS DEVELOPMENT 
D 195 165 
TOOLKIT 495 379 W/SOURCE 495 425 
GSS KERNEL SYSTEM 495 379 DB QUERY ioe ee 
GSS METAFILEINTERPRETER 295 239 RCE ie! 
GSS PLOTTING SYSTEM 495 379 oe on eee 
HALO— ONE LANGUAGE 300 209 PRE Pits ae 
HALO— FIVE MICROSOFT 
INFORMIX 795 639 
LANGUAGES 595 415 
ant INFORMIX 4GL 995 799 
SE Ges PLUS wa i INFORMIX SQL 795 639 
METAFONTS a... Bp. PHACT 295 265 
METAFONTS PLUS 235 189 


Terms and Policies 





® We honor MC, VISA, AMERICAN EXPRESS 
No surcharge on credit card or C.O.D. Prepayment by check. New York State residents add applicable 
sales tax. Shipping and handling $3.00 per item, sent UPS ground. Rush service available, prevailing rates. 


© Programmer’s Paradise will match any current nationally advertised price for the products listed in this ad. 
® Mention this ad when ordering— some items are specially priced. 

® Prices and Policies subject to change without notice. 

© Corporate and Dealer inquiries welcome. 


1-800-445-7899. ty: 1-800-642-6471 








© Special orders 
© 30-day money-back guarantee 





LIST OURS 
SORT UTILITIES 
AUTOSORT 150 129 
M/SORT 155 =189 
OPT-TECH SORT 149 =115 


MAKE, LINT, PROFILE, UTILITIES 
C CROSS REFERENCE GENERATOR 50 39 





LMK 195 145 
POLYMAKE 99 75 
PMAKER 125 95 
PFINISH 395 245 
THE PROFILER 125 94 
PC LINT 139 105 
PRE-C 295 165 
TEXT MANAGEMENT UTILITIES 120 94 
DEBUGGERS 
ADVANCED TRACE 86 175 139 
BREAKOUT 125 99 
CODESMITH &6 145 108 
C SPRITE 175 138 
CI PROBE 75 59 
CSD SOURCE DEBUGGER 75 59 
PERISCOPE [3.0 345 293 
PERISCOPE II 3.0 175 145 
PERISCOPE II-X 3.0 145 109 
PFIX 86 PLUS 395 245 
XVIEW 86 60 49 
February’s 
Bundle of the Month 
BTRIEVE, XTRIEVE, REPORT GENERATOR 
(formerly RTRIEVE) 
LISTS TOGETHER $635 OURS $495!!! 
EDITORS 
BRIEF 195 CALL 
CVUE 75 59 
W/SOURCE 250 195 

DIX 195 155 
EMACS 295 265 
EPSILON 195 159 
FIRSTIME (C) 295 229 
KEDIT 125 105 
LSE 125 95 
PMATE 195 125 
PC/VI 149 129 
SPF/PC 195 149 
VEDIT 150 109 
VEDIT PLUS 185 139 


ADDITIONAL PRODUCTS 
DAN BRICKLIN’S DEMO PROGRAM 75 59 


FASTBACK 175 149 
INTERACTIVE EASYFLOW 150 129 
PDISK 195 129 
SOURCE PRINT 139 1K 


VENTURA PUBLISHER (XEROX) 895 805 


Programmer’s Paradise 


487 E. Main Street, Mt. Kisco, NY 10549 


914-332-4548 


Programmer’ 


OL 
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LIST OURS 


PASCAL COMPILERS 
MICROSOFT PASCAL 300 189 
PASCAL 2 350 329 
TURBO PASCAL 100 69 

OTHER BORLAND 

PRODUCTS CALL CALL 
TOOLS FOR TURBO PASCAL 
ALICE 95 68 
FIRSTIME 75 59 
FLASH UP WINDOWS 75 68 
HALO 300 209 
TURBO HALO 129 99 
SCREENPLAY 100 89 
SCREEN SCULPTOR 125 94 
T-DEBUG PLUS 60 50 
TURBO EXTENDER 85 65 
TURBO PASCAL ASYNC MGR 100 84 
TURBO PROFESSIONAL 70 49 
TURBO POWER TOOLS PLUS 100 83 
TURBO WINDOWS 80 65 
OTHER TURBO TOOLS CALL CALL 


_~NEW Products 


ADVANTAGE GRAPHICS — Fast, powerful 
and extensive graphics library offering a full set of 


graphics primitives. No royalties, many mega 
List $295 CALL 


DATAWINDOWS — Greenleaf’s latest offering 
includes integrated windows, transaction data 
entry, pop-up, pull-down, Lotus-style menu 
systems. And more! DataWindows is fast, writing 
directly to video memory. 

Ours $159 


List $225 
w/Source List $450 Ours $315 


PASCAL 2— Highly optimized Pascal compiler, 


with source level debugger, profiler. 
List $350 Ours $329 


TIMESLICER— Multitasking, linkable library 
supporting concurrent tasks and real-time event 
processing with header files provided for C+ +, C 
and assembly. Library source available! 





List $295 Ours $265 
VENTURA PUBLISHER Saag BaP ta 
eet software, ligh fast, loaded with 
eatures. Create profess king di locu- 
mentation at minimal cost! 
List $895 
BASIC 
BETTERBASIC 199 139 
SUMMIT ADD ONS CALL CALL 
BETTER TOOLS 95 89 
FINALLY 99 89 
MICROSOFT QUICKBASIC 99 75 
PROFESSIONAL BASIC 99 75 
8087 MATH SUPPORT 50 45 
PANEL-BASIC 145 115 
TRUE BASIC 150 =105 
ADD ONS CALL CALL 
OTHER PRODUCTS AVAILABLE TO THE 
BASIC PROGRAMMER INCLUDE 


MULTIHALO, BTRIEVE, GSS GRAPHICS, 
SCREEN SCULPTOR, STRUBAS, 87 BASIC. 


COBOL COMPILERS/UTILITIES 


MICROSOFT COBOL 700 445 
MICROSOFT COBOL TOOLS 350 205 
MICROSOFT SORT 195 139 
MICRO/SPF 175 eore 
OPT-TECH SORT 149 
REALIA COBOL 995 785 
SCREENPLAY 175 39-155 
RM/COBOL 950 639 
RM/COBOL 8X 1250 895 
VISUAL COBOL (MBP) 1150 1015 
FORTRAN COMPILERS/UTILITIES 

LAHEY FORTRAN 477 CALL 
MICROSOFT FORTRAN 350 209 
RM/FORTRAN 595 389 
ACS TIMES SERIES 495 419 
87 SFL 250 225 
FOR-WINDS 90 78 
FORLIB-PLUS 70 54 


GRAFMATICS ORPLOTMATICS 135 ~—s:119 
GRAFMATICS AND PLOTMATICS 240 219 
FORTRAN SCIENTIFIC 


SUBROUTINES 295 249 
POLYFORTRAN TOOLS I 179 =143 
STRINGS AND THINGS 70 54 


ALSO AVAILABLE TO THE FORTRAN 
PROGRAMMER: PANEL, MULTIHALO, 
BTRIEVE, ESSENTIAL GRAPHICS, FLASH UP 
WINDOWS, GSS GRAPHICS, OPT-TECH SORT. 


PROLOG 


ARITY PROLOG (STANDARD) 95 
ADDIT. ARITY PRODUCTS ei CALL 

CHALCEDONY PROLOG 89 

TURBO PROLOG 100 79 


LISP, OTHER AI, CALL FOR 
INFORMATION, PRICING, 
AVAILABILITY. 
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MAKE YOUR PC 
SEEM LIKE AN AT! 


MAKE YOUR AT 
SEEM LIKE A 
DREAM MACHINE! 


‘ANSI-"” 
CONSOLE 


The Integrated Console Utility™ 


FAST, POWERFUL 
ANSLSYS REPLACEMENT 


For the IBM-PC, AT, and clones 






eesoeeswteeweeeeeweweeewteeeeteeeee fe 





New Version 2.00 is MUCH FASTER! 
Now blink free scrolling on CGA! 


Now uses EMS/EEMS for Scroll Recall 
New Menu Program for Changing Options 


GET A BOX FULL OF UTILITIES! 
MAKE LIFE EASIER FOR ONLY $75! 


Pe ae ae 2. ee oe ee ee ee ee 


¢ Speed up your screenwriting 2-6x 

e Extend your ANSI.SYS to full VT100 
e Add many more escape sequences 
¢ Scroll lines back onto screen 

¢ Save scrolled lines into a file 

¢ Add zip to your cursor keys 

e Free your eyes from scroll blinking 
e Easy installation 

* Get a 43 line screen wW/EGA 

¢ Get a 50 line screen w/CGA 

¢ No more annoying typeahead beep 
¢ Prevent screen phospher burnin 

¢ Control many programs’ use of color 
¢ Generate breakpts from keyboard 

¢ Shorten that annoying bell 

* Over 50 other useful options 


JIALIG, BJOSUOD ISN Y ISVA 


“The psychological difference is 
astonishing” 
—Lotus June 85 pg 8. 















“So many handy functions rolled into 
one unobtrusive package” 
—PC-World Feb 86 pg 282. 


‘The support provided by the 
publishers is extraordinary”’ 
— Capital PC Monitor May 86 pg 25. 


“... the best choice for improving your 
console...” 
— Capital PC Monitor June 86 pg 26. 


460p Manual (w/slip case) & disks $75. 
Satisfaction Guaranteed! 
Order Yours Today! 


HERSEY MICRO CONSULTING 
Box 8276, Ann Arbor, MI 48107 
(313) 994-3259 VISA/MC/Amex 


DEALER INQUIRIES INVITED 


258 
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SOOOOOOOOOOOOOOOOOOOOOSOSOOOOOHOOOOOOOOoom™_ Fast ANSI Console Driver 





Listing Four (Listing continued, text begins on page 90. ) 


404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 


415 #endif 


416 } 
417 


418 #endif 


} 


pstats ( 


#ifdef DEBUG 


{ 
sp = (STAB *) addsym( tabp, word, sizeof(STAB) ); 
strcpy( sp->str, "123456789abcdef" ); 
sp->count = 1; 


tabp ); /* Print statistics ef 


dptab( tabp ); 


Listing Five 
ITOASCII.C 


i F* 


wOMt own & W NH 


10 


12 
13 
14 
a5 
16 
pe 
18 
LS 
20 
21 
22 


24 
Aa 


SE OS Re AS ee RO RE Et Oe hy oe 


Nh 
OV 

* 
ss 


27 


28 #define SSIZE 


29 


30 extern char 


End Listing Four 


Routines to convert integers to ascii strings. 

itoroman converts to a roman numeral. 

itoalpha converts to a string of letters such as are used 
in an outline. 

itoascii does all of the above + arabic format. 


None of these routines check for string overflow. The 
largest number of characters genereated by the routines 
are: 


format routine longest # #digits 
alpha itoalpha AVLG 4 
roman itoroman MMMMDCCCLXXXVIII 16 
arabic ---- 32767 5 
total: itoascii 16 


The exception to the above is “english” format where the 
longest string is: 

"minus twenty seven thousand seven hundred seventy-seven" 
96 characters includeing the terminating null. 

Allowing an extra space for a potential leading - sign 
and another for a terminating blank we get a worst case 
of 18 characters. 


16 /* Maximum size of expanded number +] 


*cpy (char*, char* ); 


31 extern void strepy  (char*, char* }; 

32 

330 [Benn nn nr ne = = = - = = == - 7 
34 

35 itoeng( dest, uppercase, n ) 

36 int nN, uppercase; 

37 char *dest; 

38 { 

39 <* Convert number to english string “one", “two", etc. If 

40 * uppercase then the first letter is capatalized. The 

41 * number of characters in the string is returned. 

42 * Longest possible string is: 

43 * “minus twenty seven thousand seven hundred seventy seven" 
a4 * (56 characters including the null). 

45 ey 

46 

47 static char *onestab[]} = 

48 { 

49 *7ero";, “one™, “two*, “three”, “four, 
50 “five", "215". “seven", “eight", "nine", 
DL "ten", “eleven", "twelve", "thirteen", "fourteen", 
52 “fifteen, “sixteen*, “seventeen”, “eighteen”, “nineteen" 
$3 i 

54 

55 Static char *tenstab[] = 

56 { 

57 an "ten*, "twenty", “chistes, "forty", 

58 “fifty", "sixty", “seventy", “eighty”, “ninety” 

59 be 

60 

61 char *first? 

62 

63 first = dest; 

64 

65 if( n ==0 ) 

66 { 
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67 if( uppercase ) 
68 cpy( dest, uppercase ? "Zero" 


70 return( 5 ); 
Te } 


is tit n> < 0.) 

74 { 

72 dest = cpy( dest, "minus " ); 
76 n = -n 


80 Lf£( 20000 > n 
81 { 

82 dest 
83 dest 
84 } 

85 else if( n >= 1000 ) 

86 { 

87 if( n >= 20000 ) 
88 { 


>= 10000 ) 


cpy( dest, onestab[n / 1000 ] ); 
cpy( dest, (n %= 1000) ? ™ thousand, "“ 


89 dest = cpy( dest, (n >= 30000) ? “thirty” 


90 if( n %= 10000 ) 


91 dest = cpy( dest, (n >= 1000) ? 
92 } 


94 if{ n >=:1000 4 

95 { 

96 dest = cpy( dest, onestab[n / 1000] ); 
97 dest = cpy( dest, “ ™ ); 


100 dest = cpy( dest, (n %= 1000) ? "thousand, " 


104 if( n >= 100 ) 
LOS { 
106 dest 
107 dest 
108 } 


cpy( dest, onestab[ n/100 } 3 
cpy( dest, (n %= 100) ? “ hundred ” ; * 


| 


110 if( n >= 20 ) 

111 { 

112 dest = cpy( dest, tenstab[ n/10] ); 
113 if( n %= 10 ) 

114 dest = cpy(dest, “-"); 

115 } 


117 LEE H- 3 
118 dest = cpy( dest, onestab[n] ); 


120 if( uppercase ) 
12k *first = toupper( *first ); 


123 réturn( (dest. -- first} +1. )3 


128 itoroman( dest, uppercase, n ) 
129 int n, uppercase; 

130 char *dest; 

131. { 


hr 
W 
N 
S 

* 


Convert integer to a Roman numeral. 


Return number of characters put into dest. 


with lines over them. 


exist in Roman numerals. Similarly, 
numbers have a preceeding "-“ sign. 


W 
ao 
> Se RO oe er Oe OF 


rw 
> 
> 

»* 
~ 


146 register char ACD, 
147 register int , 


*s*¢p, *start; 


149 Static.char 
150 { 


*rnums[] = 
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3. "Zero" 


+ *" thousand")? 


: “twentyv"); 


uw. mon ); 


: “thousand”") : 


hundred") ; 


Bugs: 1) Numbers larger than 4999 are not printed. This 
is because characters are required which don't 
exist in the ASCII character set (ie. letters 


2) The number O is represented as a '0' which didn't 


negative 


(continued on next page ) 


EditingTools 


version 2.0 


A Superb 
Text Editor 
with an Intelligent 
DOS Shell 


KditingTools Editor 
Fast, powerful, simple to use. 
Edit multiple files, limited only 
by available memory. Move text 
between files. Deleted lines are 
recoverable from the trash file. 


EditingTools DOS Shell 
An intelhgent interface between 
DOS and the Editor. Load 
multiple directories as menus in 
easy to read table format - names 
of files with the same extension 
are sorted into a column, labeled 
by their common extension. 
Select a file to edit, or a program 
to execute without worrying 
about paths. 


Shell Commands 
Execute DOS command, Change 
color/ drive, ChDir, Copy, 
Delete, Edit, Execute, Rename, 
Load/ erase directory, Previous/ 
next directory, List commands, 
Store/ recall command, Return 
to editor, and much more. 


Editor Commands 
Auto insert/ indent, Indent 
block, Previous/ next file, Edit 
trash file, Verify key, Restore 
line, Find/ replace, Goto hne, 
Repeat/ reverse goto, Tab right/ 


left, List commands, Blank 
screen, Return to shell, and 
much more. 

Source Code 
Over 10,000 lines in Turbo 


Pascal. Since Turbo Pascal is not 
an optimizing compiler, almost 
all procedures are optimized 
manually in assembly inline 
code. 


System Requirements 
EditingTools 1s only 38K in size, 
and runs efficiently on IBM PC, 
XT, AT and true compatibles. 
No installation program. All 
editor command keys can be 
changed effortlessly during 
editing. It 1s not copy protected. 


Incredible Value 

Add EditingTools to your 
programming toolbox for only 
$30. Add $25 for well-written 
source code. 60 day money back 
guarantee. Please add $2 for s/h. 
To order, send check or money 
order to: 


Dr. Jiann Jou 
P.O.Box 460969 
Garland, TX '75046 
(214) 495-8862 


Circle no. 355 on reader service card. 
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Listin Five ( ‘aie continued, text begins on page 90. ) 
Back Issues 151 ° am, “c", ee “ccc", "CD", 


152 mag “DG; “BCC. "DCCC", AON". 
153 
Mz 1986 #113 Volume XI, Issue 3 i me edb ayes." agnosie: 
Parallel Processing — Concurrency and Turbo 155 wpe "LX", "LXX", "LXXX", "XC", 
Pascal— What Makes DOS Fast—Minimizing Arbitrary 156 
Functions—MC68000 vs. NS32000. 157 wn eye "TI", "TII", “Tv", 
April 1986 #114 Volume XI, Issue 4 158 ONE Eee ef UMAE TG. | PRE 
Special AI Issue—Programming in LISP and Prolog—An Ex- cs Mi 
pert at Life—Perils of Protected Mode—I/O Redirection for 
161 start = dest; 
the Shell. 162 
May 1986 #115 Volume XI, Issue 5 163 if( n <= -5000 || n >= 5000 ) /* Number can't be represented */ 
Software Design form the Outside In —Dan Bricklin’s DEMO 164 { 
Program—Crytographer’s Toolbox —EGA Graphics & Fast 165 SC repy ( egt,: MAR eeesenn 5 
PC Graphics—How to Write Memory Resident Code. Se return 0; 
June 1986 #116 Volume XI, Issue 6 168 
Telecommunications Without Errors—General-Purpose 169 if(n <= 0.) J* Ben) withce were / 
Sorting—Structured Programming. } 170 *dest++ = 'O'; 
July 1986 #117 Volume XI, Issue 7 } 171 
Special FORTH Issue—Forth Standards Proposal—Forthin 172 else if(n< 0) /* Print preceeding - if necessary */ 
a Bottle—Forth & Expanded Memory—Forth Structured se { 5 A) 
Programming. 175 Zephipec Eee 
Aug. 1986 #118 Volume XI, Issue 8 176 } 
Special C Issue—Benchmarking C Compilers—The Joy of 172 
Conciseness—Nearly Perfect Trees— Generics in Ada— 178 while( n >= 1000 ) /* Take care of leading thousands */ 
Real-World Data Types. 179 { 
180 * = St « -ty,t 
Sept. 1986 #119 Volume XI, Issue 9 181 Se eas een, Se, SN 
Smooth Algorithms—MS-DOS Directory Traversal— Turbo 182 } F 
Boards Review —Radix Sort—Does Turbo Prolog Measure 183 
Up—Crawling Memory Test. 184 rp = rnums; 
Oct. 1986 #120 Volume XI, Issue 10 ee for( ie='20810 2) m0 66. 1>=1 7; i/=10 ) 
80386 Programming —MS-DOSFileBrowsing—Converting ween é 
to the 320xx—-Modula-2 Compiler Review —Factoring in ate iD ‘et + (n/i)); /* Find the appropriate str.*/ 
Forth. Sate ee 
189 rp += (10; 
Nov. 1986 #121 Volume XI, Issue 11 190 
Graphics Routines—The New Graphics Chips— 191 foes *ep 7 ept+) 
Programming Tips in C, Modula-2, Pascal, and Ada—68k co *destt++ = (uppercase) ? *cp : *cp + (‘a'-'A'‘) ; 
Graphics. } 
194 
Dec. 1986 #122 Volume XI, Issue 12 = 9 eae 
Multitasking—32000 Assembl ing Stri eet ee ee 
ultitas! ing—3 ssembler—Comparing String 196 return (deat. =iatacts: 
Comparisons—Turbo Pascal Procedural Parameters. 197 } 
Other issues are also available. Please inquire. 198 
199 /*-------~----~~--~-----------~-----------------~+--------------------+--- 
TO ORDER: Return this coupon with your payment to: 200 ; Re 
M&I Books, 501 Glaveston Dr. Redwood City ,CA 94063. 201 
Or, call TOLL-FREE 800-533-4372 Mon-Fri 8a.m.-5p.m. 202 itoalpha (dest, ‘uppercase, n ) 
In CA call 800-356-2002 203 int Nn, uppercase ; 
204 char *dest; 
Please send the issues circled: 205 { 
113 114 115 116 117 118 206 <* Convert integer to an ASCII string as follows: 
19 100 et 9d a9. ae ay : 
Price: 1 issue-$5.00. 2-5 issues-$4.50 each. 6 or more- ee ‘ 0, a, by CG, ... Y, Z, aa, ab, ac, ad... 
$4.00 each. (There is a $10.00 minimum for ch ders. 
cat ae fOr Chae EUEES,) 210 + Return number of characters in expanded string. 
aii * 
Subtotal 
2i2 * This routine is very similar to itoa(). The problem here 
CAresidentsaddsalestax ss %G 213 * is that the above sequence is not a base 26 number. 
214 ® That is, there is no equivalent to a zero. 
Outside U.S. , add $.50 per issue Zio * (z +1 = aa (if a=0, b=1 ... then z + 1 would = ba ) 
216 * or to look at it another way, if a=0, b=1, etc. then 
RR shes 217 m aa should equal 0. It doesn't. 
218 ms 
Pe tte ape tt ah eae pee ti 219 
‘Aiihdiies oo char scratch(SSIZE+1], *p, *start ; 
City oe start = dest; 
OR ig canoes MID cater accent elit 224 C24 wees 
225 { 
(_] Check Enclosed. Make payable to M&T Publishing. 226 “aest+t+ = "=" °; 
Please Charge my L] VISA LJ] M/C CL) AMEX 227 n= =n 
228 } 
Card No. paeteliteMigae aE jn TS SN 229 
230 if( n ==0 ) 
Br NN a eect aioe giite ea 231 *destt+t+ = '0'; 
y ew else 
Signature 233 
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234 
232 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
233 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
Zia 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
225 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
S13 
314 
315 
316 
317 
318 





p = scratch; 
do{ 
*pt+ = (n % 26) + (uppercase ? 'A' : ‘a') ; 
} while( (n = (n/26)-1) >=0 ); 
while( --p >= scratch ) /* Copy scratch space to */ 
*dest++ = *p ; /* destination string. ny 
} 
“Jest « “\O* 3» 
return(dest - start); 
} 
/* 92 Sb Gee eae a eee ee ee ae eos Ow On ae a Se me OD ais Om OS eae des ome aes oe eee as ea OS ae a an eis Ne Om eee cae Cres Sw eS oS es ee os a Ow Oe a ee os Ges eas ab ae ee x / 
ltoascii( str, fmt,-n ) 
char *stry 
{ 
f* convert interger "n" to an ascii string accoding to 
x "fmt" and put. it in "str"; 
* fmt == 'i' lower case roman numerals 
- fmt == ‘I' upper case roman numerals 
* fmt == ‘a’ lower case alphabetic 
* fmt == ‘A‘ upper case alphabetic 
* fmt == ‘e' spelled out in lower case. 
= fmt == ‘E' spelled out w/ lst char capatalized. 
* fmt == ‘'1' arabic, field zero padded to 1 char 
- fmt == '2' arabic, field zero padded to 2 char 
* etc. 
* 
* Return width of string in str. 
af 
register int rval = 0; 
register char *format = “%0Old" ; 
register char *mfmt = "-$0l1ld" ; 
if( ‘O* <= fmt && fmt <= '9' ) 
{ 
if { n.< .0~} 
{ 
has This kludge makes up for a bug in sprintf. 
= sprintf( str, "%04d", -2 ) loads str with: 
* "900-2" 
=f 
mfmt[3] = fmt; 
n = -n; 
rval = sprintf( str, mfmt, n )? 
} 
else 
{ 
format([(2] = fmt; 
rval = sprintf( str, format, n ); 
} 
} 
else if ( fmt == ‘i' || fmt == ‘I ) 


} 


{ 


rval = itoroman( str, fmt == 


} 
else if ( fmt == ‘a‘ 


{ 


fmt == 'A' ) 


rval = itoalpha( str, fmt == 


} 
else if ( fmt == ‘e' 
{ 


rval = itoeng( str, fmt == 'E', 


} 


return( rval ); 


#ifdef DEBUG 


main () 
{ 


int ni 
char str[(80]; 
while( 1 ) 


{ 


fmt == 'E* ) 
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"i", -& Fs 


"A’s, “ye 


re. 37 


(continued on next page) 





STAT 
Toolbox 


for Turbo Pascal 








B ring convenience, power and versatility to 
your statistics programs! 


Two statistical packages in one! 


A library disk and reference manual 

Use these powerful statistical routines to build 
your applications. Routines include: ® statistical 
distribution functions ¢ random-number genera- 
tion © basic descriptive statistics © parametric 
and non-parametric statistical testing © bivariate 
linear regression, multiple and polynomial 
regression. 


A demonstration disk and manual 

This package incorporates the library of routines 
into a fully functioning statistical program. Two 
data management programs are included to 
facilitate the storage and maintenance of data. 


Full source code is included. (For IBM PC’s and 
compatibles. Turbo Pascal version 2.0 or later, 
and PC-DOS 2.0 or later are required.) 


STAT Toolbox Item #050 $69.95 





M&T BOOKS 


TO ORDER: Return this coupon with your 
payment to: M&I Books, 501 Glaveston Dr., 
Redwood City, CA 94063. Or, Call TOLL-FREE 
800-533-4372 Mon-Fri 8a.m.-5p.m. In CA call 
800-356-2002 


YES! Please send me the STAT Toolbox 
for only $69.95 sinadace. 


Subtotal 





CA residents add sales tax % 








Add $2.25 per item for shipping 





TOTAL 





Name 

Address 

City 

Sate ia Fo oa 


L] Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L) VISA CL) M/C CL) AMEX 





Card No. 

Exp. Date 

Signature 
3124 
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The System Kernel 
of the Tele Operating 
System Toolkit 


T ele is a multitasking operating system writ- 
ten in C and assembly language for IBM PC 
compatibles. SK: The System Kernel of the Tele 
Operating System is now available, including the 
most crucial part of Tele—the task scheduling 
algorithm first published in Dr. Dobb’s December 
1986 issue. The System Kernel is required by the 
Console system available in March, and by the 
soon-to-be-released File and Index systems of 
the Tele Operating System Toolkit. When all com- 


ponents of the Toolkit are integrated they form © 


an independent operating system for any 
8086-based machine. Tele has also been 
designed for compatability with MS-DOS, Unix 
and the MOSI standard. 


SK: The System Kernel contains an initializa- 
tion module, general purpose utility functions, 
and a real time task management system. SK: The 
System Kernel provides MS-DOS applications 
with multitasking capabilities. Only $49.95! 


SK: the System Kernel includes all C and 
assembler source code, and precompiled 
libraries! MS-DOS disk format 





TO ORDER: Return this coupon with your payment 
to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
94063. Or, call TOLL-FREE 800-533-4372 Mon-Fri 
8a.m.—5p.m. In CA call 800-356-2002 


YES! Please send me SK: The System 
Kernel for only $49.95 


CA residents add sales tax % 








In U.S. add $2.25 per item for shipping 





& handling —___ 
TOTAL 
NR th eat es 
Address 
City 
SS eae 


[_] Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L] VISA L) M/C L] AMEX 


Card No. 
Exp. Date 


Signature 


3124 
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Listing Five (Listing continued, text begins on page 90.) 






319 printf("Enter a decimal number: "); 

320 scant-("4a",  &ty }?7 

Sat iteasciiy-str;- 8" -n')}: printl(*ts\n"; scr ¢ 
322 iteasctt-¢. 2tz,.-"O",. nals printf {("*sxn", “str )3 
323 tteascit teers als ne printt ("Ss\n", ‘str > 
324 itosaecsit Str; “A*, ni: }7 print £("ts\n",.Stz )3 
3205 AteaeeLi (str, "it, W..)? printf ("“ts\n", str 3% 
326 FreGaseli{t.str, ."I°; ny: printt (*ssin*,\ str7 
327 PcSGaeCr? { etr, *e*, 2 32 print ft (*ts\a"; ste 45> 
328 tener. ote, (*E*,. ne printf (tsvn* > seeks 
329 } 

aon) fF 

331 

332 #endif End Listing Five 
Listing Six 


1 #include <stdio.h> 
2 #include <ctype.h> 
3 #include <stdarg.h> 


nay 





=e 
* 


RR BO ke OR ae Cah ah aR oh a a ah SS ab SORE, aR See abs Sho ae a abe Sir aR ae a ae ae aa SSR SE Oe RC aiotp apre sk “Sake ae ee 


PARSE.C Expression parser for infix desk calculator 


Copyright (c) 1986, Allen I. Holub. All rights reserved. 


General purpose expression analyzer. Can evaluate any expression 
consisting of number and the following operators (listed according 
to precedance level): 


tj Str str* 
ye 

+ - 

<2 fs So > 


&& || 


Ml 
Il 
"1 
MI 


In a string (ie, in strcemp()) * and ? work as in DOS. 

All operators associate left to right unless () are present. 

The top - is a unary minus. exists() evaluates to true if the 
filename exists. strcmp() evaluates to true if the strings match. 
isfile() evaluates to true if the file exists and is a file (as 
compared to a directory). All whitespace is ignored and " counts 
as whitespace. 


<expr> = <term> <exprl1> 
<exprl> ::= && <term> <exprl> 
22= || <term> <exprl> 
::= epsilon 
<term ::= <fact> <terml> 
<terml> ::= < <fact> <terml> 
ss= <= <fact> <terml> 
som » > <Fact> ~<terml> 
s3= o= <fact> <terml> 
:s= == <fact> <terml> 
= [= <fact> <terml> 
::= epsilon 
<fact> ::= <part> <factl> 
<factl> ::= + <part> <factl> 
ss = <part> <factl> 
::= epsilon 
<part> ::= <const> <partl> 
<partl> ::= * <const> <partl> 
:t= / <const> <partl> 


::= epsilon 


<const> :: ( <expr> ) 
: 3 - ( <expr> ) 
s —- <const> 

! <const> 

"Si? SoS 

NUMBER 


(* like strcmp(sl,s2) *) 


subroutines. For example <expr> and <exprl> are combined into 
a single subroutine. Similarly, all right recursion has been 
replaced with “for" loops. External subroutines are: 


Note that several productions are combined in the following 


VTYPE parse( expr p ) char **expr -p 3 
which parses the expression in the String pointed to by *expr p 
and returns the parsed value. VTYPE (defined below) is currently 


a double but can be changed by modifying the typedef and 
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TURBO 





® 
69. * stop when the first character that can't be part of an expression 
100.5 * is encountered. This includes numbers as in: “3%5.,6" ean es 
va where parse will return 8 and *expr_p will be pointing at the '6'. 

* e e 
72 Source Code Libraries 
Ts 3% int startexpr( str ) char’ *str; 
ao for Turbo Pascal 
To. --* returns true if if the first token in str is in FIRST(expr). 
76 * 
BGA ee a A el pe Si A i a el a mre ie pens eat ccs tna con nia ati ca irae 
78 */ his library of more than 220 routines, com- 
a9 plete with source code, sample programs 

*& e . . 

py EE Goubheehert chap ©}; and documentation will save you hours develop- 
81 extern long atol( char * ); ; ee fees 
82 ing and optimizing your programs! 
83 typedef double VTYPE; * * . ‘ 
ee if ELS Gey pa takes f Routines are organized and documented under 
85 static char  ‘*Str; the following categories: bit manipulation, file 
86 static char *Start str; management, MS-DOS support, sorting, string 
i operations, arithmetic calculations, data com- 
88 int find (int )? /* local static subroutines */ : diff ial : Fouri alvsi 
re hitch "tater * hs pression, differential equations, Fourier analysis 


90 void error ~ {ehar *, 1... 1 and synthesis, matrices and vectors, statistics, 








91 VTYPE expr ()3 and much more! All source code is included. 
92 VTYPE term (); 
93 VIYPE fact (); A detailed manual includes a description of the 
oat ate OF routine, an explanation of the methods used, 
95. VIYPE... const. (); he calli da simpl le. F 
96 VIYPE constant (); the calling sequence, and a simple example. For 
97 MS/PC-DOS systems. 

98 #define advance (amt Str+= (amt : : 
99 — ep TURBO Advantage: Source Code Libraries 

BRN 8 esi tc a eens ference kaongt allel dnldecongeldneshaeapan */ for Turbo Pascal is also available with TURBO 

= Advantage Complex: Complex Number 

a ca : eae Pa Routines for Turbo Pascal and TURBO 

104 { ; Advantage Display: Form Generator for 

105 /* Returns true if the first token in str is in FIRST(expr). Turbo Pascal. 

106 =/ 

107 Turbo Advantage Item #070 $49.95 

108 register int c; 

109 

110 c = *str; 

Dade: 

Ti2 return( isdigit(c) || c=="(* || c=a="-" ||] c==".* |] cH="!" [I cH="\'" );3 ae 

1S: ——— 

114 M&T BOOKS 

115 /*---------------------------------------------------------------------- */ 

ms esictie ‘imei Sindee) re ree ai ae teste Sas TO ORDER: Return this coupon with your payment 
118 { ee hicatabtbess: tees . to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
119 -while( *Str && *Str !=c ) 94063. Or, Call TOLL-FREE 800-533-4372 Mon-Fri 
120 Str+t; 8a.m.-5p.m. In CA call 800-356-2002 

121 : 

122 Lt iSite 5 

LZs { 

124 error ("missing %c in expression", c ); YES! Please send me the Turbo Advantage: 

125 return 0; Source Code Libraries for Turbo 

126 } $4 

127 eran Sie Pascal for only $49.95 

128 } 

129 Subtotal 

ME en ee ee eg ee we ee Ce ee ma CA residents add sales tax % 

232) Steatle int match( token ) , ees 
aaa hiicuris Add $2.25 per item for shipping 

134 { 

£35 register char *p} TOTAL —__ 
ae Name 

137 while( isspace(*Str) || *Str == '"' ) 

138 Strits 

139 Address 

140 for(p = Str; *token && *token == *p ; ptt, tokent+ ) : 

141 ; City 

142 . 

143 return( *token == '\O' ); nae He a 
144 } _] Check Enclosed. Make payable to M&T Publishing. 
145 Please Charge my L) VISA CL) M/C L) AMEX 

146 /*---------------------------------------------------------------------- */ 

147 Card No. 

148 static void error( fmt ) /* has a variable number of args */ 

149 char * fmt; Exp. Date 

150: { 

To. register char *p; . Signature 

152 va list args; (continued on next page) 
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TURBO 
Advantage 
Display: 


Form Generator 
for Turbo Pascal 














ow, even if you have little programming 
knowledge, you can design and process 
forms to fit your needs! 


TURBO Display includes a menu driven form 
processor, 30 Turbo Pascal procedures and func- 
tions to facilitate linking created forms to your 
program, and full source code and documenta- 
tion. For MS-DOS systems. 


Some of the TURBO Advantage: Source Code 
Libraries for Turbo Pascal routines are 
necessary to compile TURBO Display. You save 
$20 when you order TURBO Advantage: Source 
Code Libraries for Turbo Pascal together with 
TURBO Display: Form Generator for Turbo 
Pascal! Receive both for only $99.95! 


TURBO Display: Form Generator for Turbo 
Pascal is also available individually for $69.95. 


TURBO Advantage/ 
Display Package 
TURBO Display 


Item #070B $99.95 
Item #072 $69.95 





TO ORDER: Return this coupon with your payment 
to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
94063. Or, Call TOLL-FREE 800-533-4372 Mon-Fri 
8a.m.-5p.m. In CA call 800-356-2002 

YES! Please send me the Turbo Advantage/ 
Display Package for only $99.95 


Send me Turbo Display: Form 
Generator for Turbo Pascal for $69.95 


Subtotal 


CA residents add sales tax % 








Add $2.25 per item for shipping 





TOTAL 
Name 
Address 


City 








ag SN og re 
|] Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L] VISA L] M/C CL) AMEX 


Card No. 





Exp. Date 


Signature 
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Listing Six (Listing continued, text begins on page 90.) 


va_start( args, fmt ); 
printf (“%s\n", Start_str ); 


for( p = 
prince’. ") 7 


printf ( nA 3 
vprintf( fmt, args ); 
printlyt *x7i" }; 


static VTYPE expr () 
{ 
VTYPE left; 


left = term(); 

for (77) 

{ 
if ( match("&&") ) 
else if( match("||") ) 
else break; 


} 


return left; 


static VTYPE term( ) 
{ 
VTYPE left; 


left = fact(); 

for (77) 

{ 
LE ( 
else 
else 
else 
else 
else 


match ("<=") 
match (°<* 
match (">=") 
Match (">" ) 
match ("==") 
match ("!=") 
break; 


oo 
~— ee ee ee eee eee 


else 


} 


return left; 


static VTYPE fact () 
{ 

VTYPE left; 
left = part(); 


for(;;) 

{ 
Le ( match("+") ) 
else if( match("-") ) 
else break; 


} 


return left; 


static VTYPE part () 
{ 


VTYPE left; 
Static tmp; 
left = const (); 
for (37) 


{ advance (2); 
{ advance (2); 






Start_str; p < Str; pt+ ) 


left = term() 
left = term() 


&& left; } 
14° Jette 3 


left 
left 
left 
left 
left 
left 


left 
left < 
left >= 
left > 
left = 
left ! 


advance (2); 
advance (1); 
advance (2); 
advance (1); 
advance (2); 
advance (2); 


<= fact (); 
fact it}? 
fact (); 
fact-()F 
= fact(); 
'= fact (); 


eee eee ees ee 


left += 
left -= 


{ advance(l1); 
{ advance(1); 


part () > } 
part (); } 
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236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
Za3 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
£71 
272 
Zits 
274 
273 
276 
mr 
278 
2719 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
eae 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
| 304 
305 
306 
307 
308 
309 
310 
Sat 
Be 
313 
314 
315 
316 
317 
318 
319 


{ 
if( match("*") ) 
{ 
advance (1); 
left *= part (); 
} 
else if( match("%") ) 
{ 
advance (1); 
left = (long)left % (long) part(); 
} 
else if( match("/") ) 
{ 
advance (1); 
if( tmp = part() ) 
left /= tmp; 
else 
error( “Divide by O\n" ); 
} 
else break; 
} 
return left; 
} 
Ri cm sence en eo i in i ep a gm i etc Ns ts i ec ent a er ih mt Ri ae Sis x / 
static VTYPE const () 
{ 
register VTYPE rval = 0; 
int sign = 1, logical not = 0; 
static char *sl, *s2: 
if( match("-—") ) { advance (1); sign = -]; } 
Lf (-matchi*i").}. 4 advance (1); logical not = 1; } 
tE{ matcn(* {"}) > 
{ 
advance (1); 
rval = expr(); 
if{ match t*}*}. ) 
advance (1); 
else 
error ("Mis-matched parenthesis\n"); 
} 
else if( match("\'") ) 
{ 
sl = ++Str?3 
if (-itina(t *\v"*:) ). qsta.abort; 
*Str++ = 07 
Ss2 = Str? 
4£( '£ind{.*\"* |) .} gate @bort; 
*Str++ = 0; 
rval = strcemp( sl, s2 ); 
s2 f~-1] wt\**? 
Sori[=1) = 2h" 
} 
else 
{ 
rval = ( sizeof(VTYPE) == sizeof(double) ) 
2, @EOL( Str ) 
(VTYPE) atol( Str ) 
while( isdigit (*Str) || *Str == ‘.° ) 
St r++}; 
} 
abort: 
return( logical not ? !rval : rval * sign ); 
} 
/* www we er we eee we ew ew en we we we wn www ow wwe = */ 
VTYPE parse( expr _p ) 
char **expr p; 
{ 
/* Return the value of “expression” or 0 if any errors were 
* found in the string. "*Err" is set to the number of errors. 


(continued on next page) 
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TURBO 
Advantage 
Complex: 


Complex Number Routines 
for Turbo Pascal 








W orking with complex numbers is easy with 
the Turbo Pascal procedures and routines 
provided in TURBO Advantage Complex! 


TURBO Complex provides procedures for perform- 
ing all the arithmetic operations and necessary real 
functions with complex numbers. Each procedure 
is based on predefined constants and types. By 
using these declarations the size of arrays are easily 
adapted. Each type declaration is a record with 
both a real and imaginary part. Use these pro- 
cedures to build more sophisticated functions in 
your own programs. 


TURBO Complex also demonstrates the usage of 
these procedures in routines for vector and matrix 
calculation with complex numbers and variables; 
simultaneous Fourier transforms; calculations of 
convolution and correlation functions; low-pass, 
high-pass, band- pass and band-rejection digital 
filters; and solving linear boundary-value 
problems. 


Source code and documentation is included. For 
MS-DOS systems. Some of the TURBO Complex 
routines are most effectively used with routines 
contained in TURBO Advantage. Receive both 
TURBO Advantage and TURBO Complex, together 
for only $115! You save $25! 


TURBO Complex: Complex Number Routines for 
Turbo Pascal is also available individually for 
$89.95. 


TURBO Advantage/ 
Complex Package 
TURBO Complex 


Item #070A $115 
Item #071 $89.95 


TO ORDER: Return this coupon with your payment to: M&T 
Books, 501 Glaveston Dr., Redwood City, CA 94063. Or, Call 
TOLL-FREE 800-533-4372 Mon-Fri 8a.m.-5p.m. In CA call 
800-356-2002 


YES! Please send me the Turbo Advantage/ 
Complex Package for only $115 


Send me Turbo Complex: Complex 
Number Routines for $89.95 


Subtotal 


ers 


CA residents add sales tax 








Add $2.25 per item for shipping 
TOTAL 





Name 

Address 

City 

Sate eee 


(_] Check Enclosed. Make payable to M&T Publishing. 
Please Charge my LJ VISA LJ M/C L) AMEX 


Card No. 
Exp. Date 


Signature 
3124 
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The 
Turbo Pascal 
Toolbook 


Edited by 
Namir Clement Shammas 


M* your 
programming 
easier and more 


powerful with the 
Turbo Pascal Toolbook! 


You’ ll find: 

e an extensive library 
of low-level routines 

e external sorting and searching 
tools, presenting a new database routine that 
combines the best features of the B-tree, 
B+ and B++ trees 

© window management, to help you create, sort 
and overlay windows 

e artificial intelligence techniques 

¢ mathematical expression parsers, offering two 
routines that convert mathematical expres- 
sions into RPN tokens 

© a smart statistical regression model that 
searches for the best regression model to 
represent a given set of data. 











ee 


All routine libraries and sample programs are 
on disk for MS-DOS systems, and over 800K of 
Turbo Pascal source code is included! 


Turbo Pascal 

Toolbook 

Turbo Pascal Toolbook 
with disk 


Item #080 $25.95 


Item #081 $45.95 


TO ORDER: Return this coupon with your payment 
to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
94063. Or, Call TOLL-FREE 800-533-4372 Mon-Fri 
8a.m.-5p.m. In CA call 800-356-2002 


YES! Please send me the Turbo Pascal 
Toolbook for only $25.95 


Send me the Toolbook, along with the 











disk for only $45.95 Saat 
Subtotal 
CA residents add sales tax TO scdispatiectatd 
Add $2.25 per item for shipping 
OA, cate Os 
Name 
Address 
City 
State Zip 


(J Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L] VISA L] M/C LJ AMEX 


Card No. 
Exp. Date 


Signature 
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320 
S24 
322 
323 
324 
323 
326 
327 
328 
329 
330 
331 
332 
333 
334 
330. '} 
336 


Listing Six (Listing continued, text begins on page 90.) 






* "Parse" is the “access routine" for expr(). By using it you 
* need not know about any of the global variables used by expr(). 


“/ 


VTYPE 


rval; 


Start ‘str = Str = *expr_p ; 


if ( 


istr jf 


PeScr) 
return 0; 


rval = expr(); 


*expr’ p = Str; 
return rval; 


337. [Rens ee ee eb i pee eee */ 


338 
339 
340 
341 char 
342 { 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
JJ 
354 
395 
356 
soe 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
STs 
KI 
373 
374 
Shs 
376 
i 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 } 

400 

401 #endif 


#endif 


#ifdef MAIN 


MRALOVe 


Ty 
v2 eth eae ee OE Ce ee 


* 
ee 


char 
Lat 
VTYPE 


main( argc, argv } 


Desk calculator program to test parse(). If no cmd line 
arguments are present, works in interactive mode and 
exits with a 0 status. If command line arguments are 
present, the expressions (one per argv entry) are 
evaluated and the result printed. The exit status is 
the result of the last expression evaluated, truncated 
to unsigned char (0-255). If -s is specified, nothing 
is printed but the same exit status is returned, you 
can then test $status in a shell script to get the 
Status. For example, the following script prints "50": 


expr =-s "10 * 5* 
echo $status 


buf [128]... tp 2 
silent = 0; 
rval; 


if( argc == 1 ) 


{ 


#ifdef DEBUG 


else 


} 


printf("Enter expression or blank line to exit\n>"); 


for t-; gets (buf) ¢. printr(">"):4 
{ 
if( !*buf ) 
break; 


if( !startexpr(buf) ) 
printf( "%s not an expression\n", buf ); 


p = buf; 
printf( “%g\n", parse( &p ) ); 
printf ("tail = 


<%s>\n", p); 


if( argv{1][(0] == '-' && argv(1] [1] 
{ 


== 's!' ) 


silent = 1; 
argvt+t; 
argv--; 


} 


for( p = *+targv; --arge > 0 ; p = *++argv ) 
{ 
rval = parse( &p ); 
if( !silent ) 
printf( “%s = $g\n", 


*argv, rval ); 


exit ( (unsigned char) rval ); 


End Listing Six 
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e e 
Listing Seven 
1 #include <ctype.h> 
2 ; 
3 char *skipspace( p, esc ) 
4 register char “5 
5S register int 
a | 
7 /* 
8 * Skip all ' ' characters. \<space>, where \ is the 
9 * “esc" character, doesn't count as a space. 
10 a/ 
11 
12 while( *p == ' '' ) 
is { 
14 if ( *p != esc ) 
15 prt 3 
16 
17 else if ( *++p ) 
18 ptt; 
19 } 
20 
21 return (p)?; 
22.) 


Listing Eight 

1 char *skipto(c, p, esc ) 
2 register char +3 5 

3 register int c,-esc -} 

4 { 


e. 
, 


esc ; 


/* skip escaped characters */ 


End Listing Seven 


a Skip to c or to end of string. If c is preceeded by 
the esc character it is skipped. Return a pointer 
= ES 6. 
ef 


orn ou 


9 
10 while( *p && 
a1 { 
iz if ( *p != esc ) 
13 pt+ ; 
14 
iS else if ( *++p ) 
16 p++; 
Li } 
18 
19 return (p); 
20 } 


Listing Nine 
1 uatoi (s) 


2 char ets; 
ae 


*p 1=<¢-') 


/* skip escaped characters */ 


End Listing Eight 


/* Like atoi but updates s to point past the number. 
*/ 


register char 
register int 


*str; 
num = 0 ; 


10 for( str = *s 2 °O* <= *str 66 *Str <= ‘9°? .stref.:) 
11 num = (num * 10) + (*str - ‘'0O°) ; 


13 “Sr SEF; 
14 return num; 


19 #ifdef DEBUG 
21 #include <stdio.h> 


23 main() 

24 { 

25 char buf[60), *bp?; 
26 int a. 


28 while( 1 ) 

29 { 

30 printf("“enter string: "); 

31 gets (buf); 

sa bp = buf; 

33 i = uatoi( ébp )? 

34 printf("num = td, bp = <%s>\n", i, bp ); 


36 } 


38 #endif End Listings 


Dr. Dobb’s Journal, February 1987 


ON 
COMMAND: 


Writing a Unix-Like Shell 
for MS-DOS 
by Allen Holub 


L earn how to write 

shells applicable to 

MS-DOS, as well as to 

most other programming 
environments! This book and 

disk include a full description 

of a Unix-like shell, complete C 
source code, a thorough discussion 
of low-level DOS interfacing and 
significant examples of C programming 
at the system level. 


Supported features include: © Read ® Aliases © History 
© DOS compatible support @ C-Shell-based shell scripts 


The Unix-like control flow includes: if/then/else; while; 
foreach;switch/case; break; continue. 


For IBM PC compatibles. All source code is included 


“UTIL 


When used with the shell described in On Command, 
these utility programs and subroutines provide a fully 
functional Unix-like environment! Utilities include: 
cat; cp; date; du; echo; grep; Is; mkdir; mv; p; pause; 
printevn; rm; rmdir; sub; and chmod. Complete source 
code and manual are included. 





Receive On Command together with /UTIL for only 
$59.95! 


On Command 
/UTIL 
On Command with /UTIL 


Item #163 $39.95 
Item #161 $29.95 
Item #164 $59.95 


TO ORDER: Return this coupon with your payment to: M&T 
Books, 501 Glaveston Dr., Redwood City, CA 94063. Or, call 
TOLL-FREE 800-533-4372 Mon-Fri 8a.m.-5p.m. In CA call 
800-356-2002 


YES! Please send me On Command: 
writing a Unix-Like Shell for MS-DOS 
with disk for $39.95 


Send me /UTIL for $29.95 


Send me both On Command and /UTIL 
for only $59.95 


Subtotal 


CA residents add sales tax % 


Add $2.25 per item for shipping ___ 


TOTAL 
Name 
Address 
City 
Siete oe ee ep 


(J Check Enclosed. Make payable to M&T Publishing. 
Please Charge my CL) VISA CL) M/C CL) AMEX 


Card No. 
Exp. Date 


Signature 
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Listing One (Text begins on page 124.) 


Listing 1. Turbo Pascal listing of a four-function calculator program. 


PROGRAM Calculate; 
(* Four function calculator example *) 


VAR OpError : BOOLEAN; 
Operation, OK : CHAR; 
X, Y, Result : REAL; 


BEGIN 
REPEAT 

Clrser; 
WRITE (‘Enter first number '); READLN(X); WRITELN; 
WRITE ('Enter operation ‘); READLN(Operation) ; WRITELN; 
WRITE (‘Enter second number '); READLN(Y); WRITELN; 
OpError := FALSE; 
CASE Operation OF 


“+s Result :« xX +'°¥3 
‘—" : Result := X - Y3 
P&E S REISULE te Qe Ye 
Sfi a EE ee By 
THEN 
Result := X / Y 
ELSE BEGIN 
WRITELN(‘*Cannot divide by zero!'); 
WRITELN; 


OpError := TRUE 
END 
ELSE OpError := TRUE; 
END; (* CASE *) 
IF NOT OpError THEN BEGIN 
WRITELN(X,' ‘,Operation,' '‘',Y,' = ‘,Result); 
WRITELN; 
END; 
WRITE('Perform another operation? (Y/N) '); 
READLN (OK) ; WRITELN; 
UNTIL (OK <> 'Y') AND (OK <> 'y'); 
END. 


Listing Two 


Listing 2. Modula-2 listing of a four-function calculator program. 


MODULE Calculate; 


FROM ScreenHandler 
IMPORT ClrEol, ClrScr, DelLine, InsLine, GotoXy, WhereX, WhereY, 
CrtInit, CrtExit, LowVideo, NormVideo, HighVideo, SetAttribute, 
GetAttribute, normalAtt, boldAtt, reverseAtt, underlineAtt, 
blinkAtt, boldUnderlineAtt, blinkUnderlineAtt, boldBlinkAtt, 
reverseBlinkAtt, boldUnderlineBlinkAtt; 

FROM TRealIO IMPORT ReadReal, WriteReal; 

FROM TTextIO 
IMPORT ReadInt, ReadCard, ReadChar, ReadString, ReadLn, ReadBuffer, 
WriteInt, WriteCard, WriteChar, WriteString, WriteBool, WriteLn, 
Eoln, SeekEof, SeekEoln; 

FROM TKernelIoO 
IMPORT File, FileType, OptionMode, 
StatusProc, ReadProc, WriteProc, ErrorProc, 
stdinout, input, output, con, trm, kbd, lst, aux, usr, 
conStPtr, conInPtr, auxInPtr, usrinPtr, conOutPtr, lstOutPtr, 
auxOutPtr, usrOutPtr, errorPtr, IOresult, KeyPressed, IO0Buffer, 
IOCheck, DeviceCheck, CtrlC, InputFileBuffer, OutputFileBuffer; 


(* Four function calculator example *) 


VAR 
OpError: BOOLEAN; 
Operation, OK: CHAR; 
X, Y, Result: REAL; 


BEGIN 
REPEAT 


CirScr? 
WriteString(stdinout, ‘Enter first number ', 0); 
ReadBuffer (on); 

ReadReal (stdinout, X); 
ReadLn (stdinout) ; 
ReadBuffer (off); 


= 
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End Listing One 


(continued on page 72) 
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IS GETTING THE ANSWER TO 
SOFTWARE PROBLEMS 
A BIGGER PROBLEM THAN 
THE PROBLEM? 


Don't stay on hold 
when there’s help online 
from CompuServe’ 


Software Forums. 









The: new upgraded 
version of 
your software 
locks up. 
And every 
time you 
= reboot, 
: you get stuck in the 

same ies in the program. 


You've chucked the manual, 
because you've done exactly what it 
tells you to do six times already. 

So you call the software company. 


Now you spend half a day beating 
your head against a brick wall of 
busy signals, ranting at recorded 
messages, hanging around on hold. 
And you still don’t get the solution 
to your problem. 


Meanwhile, progress is stopped 
and your profits are 
dribbling away. But 
wait. There's help... 


Several prom- 
inent, progressive 
software publishers 
recognize this 
problem, and : 
working with CompuServe, 
have developed a solution— 
CompuServe Software Forums. 


Now you can go online with 
experts from the companies that 
produced your software and get 
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prompt, written answers to your 
specific problems. You can 
even talk with the actual 
| software 
ere 












Adobe Systems; Aldus; Ashton- 
Tate; Autodesk; Borland Interna- 
tional? Creative Solutions; Digital 
Research; Living Videotext; Lotus” 
Inc., Microsoft? MicroPro; Misosys 
Inc? and Software Publishing” all 
have CompuServe ee Forums. 


And we keep 
adding 
more. 






Compiserie S large subscriber 
base also puts you in touch with 
thousands of other, often more expe- 
rienced, users of the same software. 
You'll find they can give you lots 

of creative ways to get the most out 
of your software. 


And software forums are the best 
way to learn about product updates, 
new product announcements, new 
ways to expand the uses of your soft- 
ware, and offer free uploads of your 


own programs. 
Our online electronic magazines 


_ a software problem 


y (in Ohio, 614- 


frequently publish software reviews. 
And you can find help for many 
other software products in our other 
computer-related forums for IBM; 
Tandy’ Atari; Apple; Commodore; 
TI° and others. 


The last thing you 
need when you've got 












, isa bigger 
«.. problem 
getting answers. 
So, from now 
on, get ex 
prompt, 
informed 
answers on 
CompuServe Software Forni 


To buy your CompuServe 
Subscription Kit, see your nearest 
computer dealer. Suggested retail 
price is $39.95. 


To order direct 
or for more 
information, 
call 800-848- 8199, 













457-0802). 


If you're 
already a 
CompuServe 
subscriber, 
just type 
GO SOFTWARE 
at any ! prompt. 


CompuServe: 


Information Services, PO. Box 20212 
5000 Arlington Centre Bivd., Columbus, OH 43220 


An H&R Block Company 


Circle no. 237 on reader service card. 
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Is Your Program 


HALF-FAST? 


Speed it up 
with 


re QWATCHER 


An execution profiler 
for IBM PCs 
and compatibles. 


Most programs run at less than 
half the speed that they could. 
You can optimize almost any 
code, but where do you start? 


A typical program spends 
90% of its time in 10% of 
its code. The Watcher 
identifies that critical 10% 
for you, so you don’t 
waste your effort on the 
wrong 90%. 


The Watcher is easy to learn 
and easy to use, and we provide 
full technical support. Watcher 
users have increased program 
performance by as much as 
300%. You can get similar 
results. 


The Watcher works with any 
non-interpretive language on 
DOS version 2 or 3. 


Turbo Pascal users: A 
special section of our 


manual is dedicated to 
you! 


THE 


To order or for free information, 
call or write: 


only 
$59.95 


Plus $3.00 
Shipping & 
Handling. 


SOFTWARE 


Forest Road 
Wilton, New Hampshire 03086 


(603) 654-2525 





Circle no. 287 on reader service card. 
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Listing Two (Listing continued, text begins on page 124.) 


WriteLn(stdinout) ; 
WriteString(stdinout, ‘Enter operation ', 0); 
ReadBuffer (on) ; 
ReadChar (stdinout, Operation); 
ReadLn (stdinout) ; 
ReadBuffer (off); 
WriteLn(stdinout) ; 
WriteString(stdinout, ‘Enter second number ', 0); 
ReadBuffer (on); 
ReadReal (stdinout, Y); 
ReadLn (stdinout) ; 
ReadBuffer (off) ; 
WriteLn(stdinout) ; 
OpError := FALSE; 
CASE Operation: OF 
*+%e 
Result := X+tY 
| tite 
Result := X-Y 
| txt. 
Result := X*yY 
| of te 
IF 
Y <> 0. THEN 


Result := X/Y 
ELSE 


WriteString(stdinout, ‘Cannot divide by zero!', 0); 
WriteLn(stdinout) ; 
WriteLn(stdinout) ; 


OpError := TRUE 
END 
ELSE 
OpError := TRUE; 
END; (* CASE *) 
IF NOT OpError THEN 


WriteReal (stdinout, X, 18, -10); 


WriteString(stdinout, ' ‘, 0); 
WriteChar(stdinout, Operation, 0); 
WriteString(stdinout, ' '‘', 0); 


WriteReal (stdinout, Y, 18, -10); 
WriteString(stdinout, ' = ', 0); 
WriteReal (stdinout, Result, 18, -10); 
WriteLn (stdinout) ; 
WriteLn (stdinout); 

END; 

WriteString({stdinout, ‘Perform another operation? (Y/N) ', 0); 

ReadBuffer (on) ; 

ReadChar (stdinout, OK); 

ReadLn (stdinout) ; 

ReadBuffer (off); 

WriteLn(stdinout) ; 

UNTIL (OK <> ‘Y') AND (OK <> 'y'); 
END Calculate, 


Listing Three 


Listing 3. Turbo Pascal program for text pattern matching. 


PROGRAM Pattern Search Test; 
eee 


CONST MAX = 100; 
DEFAULT_LINE = ‘Namir Clement Shammas'; 


TYPE STRING4O = STRING[40]; 
STRING80 = STRING(80]; 
STRING255 = STRING[255]; 


VAR Line : STRING255; 
Pattern : STRING40O: 


FUNCTION Pattern Search(Text_Line : STRING255; Pattern : STRING40) 
(* Scan Text _Line with Pattern string, containing possible *) 
(* combination of wildcards. *) 


: INTEGER; 


VAR Num_Tokens : INTEGER; 


Token : ARRAY [1..MAX] OF STRING40; (continued on page 74) 
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“How to protect your software 


by 





Inventor and 
entrepreneur, 
Dick Erett, 
explains his 





protection of intellectual 


property. 
cA even sophisticated 
software develop- 

ment companies and the 

trade press seem to be miss- 

ing Or ignoring 1s this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are clear. You can give 
product away to a segment 


crucial point that 









Lez agi S =. 


Hard Disk Installation : Simply copy program disk 
to hard disk using DOS Command - Copy Aste CS 





the program diskette as you wish. 


Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories containing 


program files. 







Program Back-ups : You may make as many copies of 


Networks : This product may be 
rks. Follow the same installation 
102 of this manual. The Block 
. : with the normal operation of any 


letting people copy it?’ 


By Dick Erett, President of Software Security 






GAITPIIIO 





Soon all software installation procedures will be as straightforward as this. 
The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


‘““.. giving your software 
away ts fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 


We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


“...eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 


The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK is transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘*.. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 





oftware 


“44, 


CCUFr. it Yine 
870 High Ridge Road Stamford, Connecticut 


06905 


203 329 8870 


Circle no. 170 on reader service card. 
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C & PASCAL 
PROGRAMMERS 


Blaise Computing provides a broad range of pro- 
gramming tools for Pascal and C programmers, 
with libraries designed for serious software 
development. You get carefully crafted code 
that can be easily modified to grow with your 
changing needs. Our packages are shipped com- 
plete with comprehensive manuals, sample pro- 
grams and source code. 


C TOOLS PLUS 
$175.00 


NEW! Full spectrum of general-purpose utility 
functions; windows that can be stacked, re- 
moved, and accept user input; interrupt serv- 
ice routines for resident applications; screen 
handling including EGA 43-line text mode sup- 
port and direct screen access; string functions; 
and DOS file handling. 


PASCAL TOOLS/TOOLS 2 
$175.00 


Expanded string and screen handling; graphics 
routines; easy creation of program interfaces; 
memory management; general program con- 
trol; and DOS file support. 


VIEW MANAGER 
$275.00 


Complete screen management; paint data entry 
screens; screens can be managed by your appli- 
cation program; block mode data entry or field- 
by-field control. Specify C or IBM/MS-Pascal. 


ASYNCH MANAGER 
$175.00 


Full featured asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; baud rates up to 9600; modem 
control and XMODEM file transfer. Specify C or 
IBM/MS-Pascal. 


Turbo POWER TOOLS PLUS 
$99.95 


NEW! Expanded string support; extended 
screen and window management including EGA 
support; pop-up menus; memory management; 
execute any program from within Turbo Pascal; 
interrupt service routine support allowing you 
to write memory resident programs; schedul- 
able intervention code. 


Turbo ASYNCH PLUS 
$99.95 


Complete asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; and baud rates up to 9600. 


RUNOFF 
$49.95 


NEW! Text formatter written especially for pro- 
grammers; flexible printer control; user-defined 
variables; index generation; and general macro 
facility. Crafted in Turbo Pascal. 


EXEC 
$95.00 


Program chaining executive. Chain one pro- 
gram from another even if the programs are in 
different languages. Shared data areas can be 
specified. 


a ye yd 
eu 


aN 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 








Circle no. 217 on reader service card. 





Listing Three (Listing continued, text begins on page 124.) 
PROCEDURE INC (VAR A : INTEGER); 


BEGIN 
A :=A +1; 
END; 


FUNCTION Offset Pos(Strl, Str2 : STRING80; Ptr : INTEGER) : INTEGER; 
VAR Ptr2 : INTEGER; 


BEGIN 
Delete (Str1,1,Ptr-1); 
Ptr?) 3= Pos (Str2,. Str); 
LF -Btr2 >:0: THEN..Ptr2<s= Ptr2 + -Ptr — 13 
Offset Pos := Ptr2; 
END; (* Offset Pos *) 


PROCEDURE Scan Pattern; 
VAR Char Pos, Pattern Length, Ptr, Ptr2 : INTEGER; 


BEGIN 
Char _ Pos := 1; Num Tokens := 0; Ptr := 1; 
Pattern Length := Length (Pattern); 
WHILE Char Pos <= Pattern Length DO BEGIN 
CASE Pattern(Char Pos] OF 
2° "2 -BEGIN 
IF Char Pos > Ptr 
THEN BEGIN 
INC (Num_Tokens) ; 
Token[(Num Tokens] := 
Copy (Pattern,Ptr, (Char Pos — Ptr))}; 
END; (* IF *) 
Ptr2 := Char Pos; 
WHILE Pattern[Ptr2] = '?' DO INC(Ptr2); 
INC (Num_Tokens) ; 
Token(Num Tokens] := 
Copy (Pattern, Char Pos, (Ptr2 - Char Pos)); 
Ptr s= Ptr2;.Char Pos := Ptr2 
END; 
c** -¢- BEGIN 
(* Resolve any pending strings *) 
IF Char_Pos > Ptr 
THEN BEGIN 
INC (Num_Tokens) ; 
Token[Num Tokens] := 
Copy (Pattern,Ptr, (Char Pos - Ptr)); 
END; 
INC (Num_Tokens) ; 
Token(Num_Tokens] := Pattern[Char Pos]; 
Ptr 3 Char Pos + 17 
END; 
END; (* CASE *) 
INC (Char Pos) 
END; (* WHILE *) 
(* Store any trailing characters *) 
IF Char Pos > Ptr 
THEN BEGIN 
INC (Num_Tokens) ; 
Token(Num Tokens] := Copy (Pattern, Ptr, (Pattern Length - Ptr + 1)); 
END; 
END; (* Scan Pattern *) 


FUNCTION Locate Pattern : INTEGER; 


VAR I, First Char, Ptr, Ptr2 : INTEGER; 


BEGIN 
First Char := 0; Ptr := 1; Ptr2 := 1; I := 1; 


WHILE I <= Num Tokens DO BEGIN 

IF Pos({('?',Token[I]) > 0 

THEN BEGIN 
(* Sub-pattern has one or more '?' *) 
Ptr := Ptr + Length(Token[I]); 
(* does the text following the '?..?' match ? *) 
Ptr2 := Offset _Pos(Line, Token[I+1], Ptr); 
IF Ptr <> Ptr2 THEN Ptr2 := 0; 
INC (I); 


END; (continued on page 78) 
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LOWEST PRICES 


Since this ad is prepared in advance of 
publication, some of our current prices may be 
lower than what's advertised here. Call for 
latest pricing. 


FREE SHIPPING 

Orders within the USA (including Alaska & 
Hawaii) are shipped FREE via UPS. Express 
shipping is available at the shipping carrier's 
standard rate with no rush fees or handling 
charges. To avoid delays when ordering by 
mail, please call first to determine the exact 
cost of express shipping. 


CREDIT CARDS 
VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date and telephone number. 


CODs AND POs 
CODs and Purchase Orders are accepted at no 
extra cost. POs with net 30-day terms are 
available to qualified US accounts only. 


FOREIGN ORDERS 


Shipping charges for foreign and Canadian 
orders are based on the shipping carrier's 
standard rate. Since rates vary between car- 
riers, please call or write for the exact cost. 
Foreign orders (except Canada), please include 
an additional $10 for customs form preparation. 
All payments must be made with US funds 
drawn on a US bank. Please include your 
telephone number when ordering by mail. Due 
to government regulations, we cannot ship to 
all countries. 


VOLUME ORDERS 


Call for special pricing. 


SOUND ADVICE 
Our knowledgeable technical staff can assist in 
comparing products, answer technical ques- 
tions and send you detailed product information 
tailored to your needs. 


30-DAY GUARANTEE 


Most of our products come with a 30-day 
documentation evaluation period or 30-day 
return guarantee. Please note that some 
manufacturers restrict us from offering guar- 
antees on their products. Call for more informa- 
tion. 
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US 800-336-1166 
CANADA 800-225-1166 
OHIO & ALASKA 
(Call Collect) 216-877-3781 
FOREIGN 216-877-3781 


CUSTOMER SERVICE 216-877-1110 


Hours: Weekdays 8:30 AM to 8:00 PM EST. 
Ohio customers add 5% state sales tax. 


136 SUNNYSIDE ST. HARTVILLE, OHIO 44632 
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SAPIENS V8 


A VIRTUAL MEMORY MANAGER 
FOR THE PC 


C PROGRAMMERS! 
LINK IN 


EXPAND YOUR C COMPILER 
8 MEGABYTES 
ON A PC 


% VIRTUAL MEMORY MANAGER FOR 
C PROGRAMMERS ON THE IBM PC. 


%* PROVIDES 8 MGS. VIRTUAL MEMORY 
WORKSPACE. 

* Link V8 libraries to C compilers — 
MICROSOFT, LATTICE AND AZTEC. 

* FAST: LESS THAN 10% SPEED 
OVERHEAD 


* ADVANCED SOFTWARE EMULATION OF 
64-BIT ARCHITECTURE 





Sapiens V8 is for C programmers who want to 
develop PC applications that go beyond current 
memory restrictions of the PC and a 16 bit 
architecture. 


© V8 is not dependent on add-on boards. 


e Virtual stack library supports stack frame 
management and multiple return values. 


¢ Virtual heap (vmalloc( )) allows allocation 
of very large data structures. 


¢ System requirements: Huge model C 
compiler, V8 uses 22-128 Kb core. 


C7 


> AP Ll EeNes 
SOFTWARE 
CORPORATION 





Sapiens Software Corporation 
236 Mora St. Santa Cruz, CA 95060 
408/458-1990 
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Listing Three (Listing continued, text begins on page 124.) 


IF (Pos('?',Token[{I]) > 0) OR (Token[{I] <> '*‘) 
THEN Ptr2 := Offset_Pos(Line, Token[I], Ptr); 


IF (Token({I] <> ‘**) 


THEN BEGIN 
IF (Ptr2 = 0) AND (First Char > 0) 
THEN BEGIN 
First Char := 0; 
Lee bed 
END 
ELSE 
IF (Ptr2 = 0) AND (First _Char = 0) 
THEN 
I := Num Tokens 
ELSE BEGIN 
IF (First_Char = 0) THEN First Char := Ptr2; 
Ptr := Ptr2 + Length(Token[(I)); 
END; 
END; 
INC (I); 


END; (* WHILE I *) 
Locate Pattern := First Char; 
END; (* Locate Pattern *) 


BEGIN (* Pattern Search *) 
Scan_Pattern; 
Pattern Search := Locate Pattern 
END; (* Pattern Search *) 


BEGIN (*------------- MAI N ---------------- *) 
Cirscrs 
WRITELN (*Default string is : *, DEFAULT LINE) ; WRITELN; 
WRITE (‘Enter string '); READLN(Line); WRITELN; 
IF Line = '' THEN Line := DEFAULT LINE; 
WRITE (‘Enter search pattern string '); READLN(Pattern); WRITELN; 
WRITELN(*Matches at position ',Pattern Search (Line, Pattern) ); 
WRITELN; 


END. End Listing Three 


Listing Four 


Listing 4. Modula-2 program for text pattern matching. 


MODULE PatternSearchTest; 


FROM Strings 
IMPORT Assign, Insert, Delete, Pos, Copy, Concat, Length, CompareStr; 
FROM ScreenHandler 
IMPORT ClrEol, ClrScr, DelLine, InsLine, GotoXy, WhereX, WhereY, 
CrtInit, CrtExit, LowVideo, NormVideo, HighVideo, SetAttribute, 
GetAttribute, normalAtt, boldAtt, reverseAtt, underlineAtt, 
blinkAtt, boldUnderlineAtt, blinkUnderlineAtt, boldBlinkAtt, 
reverseBlinkAtt, boldUnderlineBlinkAtt; 
FROM TTextIO 
IMPORT ReadInt, ReadCard, ReadChar, ReadString, ReadLn, ReadBuffer, 
WriteInt, WriteCard, WriteChar, WriteString, WriteBool, WriteLn, 
Eoln, SeekEof, SeekEoln; 
FROM TKernelIO 
IMPORT File, FileType, OptionMode, 
StatusProc, ReadProc, WriteProc, ErrorProc, 
stdinout, input, output, con, trm, kbd, lst, aux, usr, 
conStPtr, conInPtr, auxInPtr, usrInPtr, conOutPtr, lstOutPtr, 
auxOutPtr, usrOutPtr, errorPtr, IOresult, KeyPressed, IOBuffer, 
TOCheck, DeviceCheck, CtrlC, InputFileBuffer, OutputFileBuffer; 


(* Compiler Directive not supported (*$V-*) *) 
(* See the MODULA-2 feature ‘Open Array Parameters' *) 


CONST 
MAX = 100; 
HI = 32000; (*--> line added *) 
TYPE 
STRING4O = ARRAY [0..40-1] OF CHAR; (continued on page 80) 
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@ Do Hindows! 


as 
promote large 


excessive, free time. | 


*m based on at evolutionary . 
design philosophy. The only problem is... 
what should we call it? 


It is easy to learn and use, like a panel 
generator, because it allows you to draw your 
text, fields, and colors on the video display. 
But we can’t call it a panel generator, 
because it supports full windowing and 
scrolling, and because screen and field 
information may be stored in your program 
files (EXE) rather than separate data files. 


It is flexible and powerful, like a library- 
oriented programmer’s toolkit, but you are not 
restricted to "visualizing" your data-entry 
windows as you type page after page of code 
to set up borders, fields, text and 
highlighting. Our innovative approach 
(called static windowing) eliminates the need 
for replication of static data in dynamic 
memory. 


It produces tight code, like a YACC (Yet 
Another Compiler Compiler), but you don’t 
have to tolerate a myriad of small program 
modules that need to be compiled and 
maintained. Instead, our "screen designer" 
creates Microsoft object files which you 
simply link with your applications. 


Add to this new, superior design philosophy 
the fact that it has more features, produces 
tighter code, and yields higher performance 
than any of the above. Throw in a clear, 
concise user manual, a thorough on-disk 
tutorial, and some example programs. Top it 
off with a utility program that documents 
each screen and another that allows you to 
prototype (or simulate) your application 
before you write a single line of code. Now, 
what would you call it? 


Let’s settle on a single word. 
Let’s call it the "best." 


But don’t take our word for it. Order your 
demo disk today. You will receive a copy of 
the screen generator, the tutorial, and some 
documentation on the utility programs and 
library routines. Then make the decision 
yourself. 


Or take advantage of our one-time . 
introductory offer and get $100 discount if 
you order before March 31, 1987. 


Call (713) 665-4109 for more information. 
Major credit cards accepted. 


ee tie ens me, test/save/abort — 

‘ow, graphics characters, paint, jump-to- 
field, many cursor movement options, 
monitor switching, operating system calls, 
help. Set validation mode, highlight current 
field, scrolling by line or page, input mask, 
tabs, initial values. More. Up to 400 lines per 
screen. 


FIELD DEFINITION: 
Left-justify/right-justify/center, uppercase 
translation, built-in character validation, 
byte/integer/word/long/float/ 
double/string/date field validation, retain 
data, auto-erase, protected fields, input 
required, use commas, use zeros/spaces, 
margin bell. User-defined character 
validations, pattern-matching validations, 
picture validations, and field types. More. Up 
to 9999 fields per screen. 


LIBRARY ROUTINES: 

Open, close, move, display, and refresh 
windows. Allow user to edit data fields in 
window, or to view and manipulate a window 
but not change date stored in it. Pull-down 
and pop-up menus. Read screen object file 
from disk. Intercept keyboard filter. 
Override default key actions. Automatic and 
manual refresh. Switch display device, erase 
all data fields on window, plot data onto 
fields or entire screens, retrieve data from 
fields or entire screens, screen image dump, 
retrieve and modify screen and field 
attributes, locate field, force use of bios. 
Direct interfacing with some bios interrupts, 
including cursor and mouse control. More. 
Mnemonic and simple to use. 


REQUIREMENTS: 

IBM PC/XT/AT/JR or true compatible, DOS 
2.0 or later, at least 128K free RAM, and the 
Microsoft C, Pascal, or Fortran compiler or 


the IBM C compiler. Support is available for 
other C Compilers and the XENIX operating 
system. Call for specifics. 


IBM. IBM PC, IBM XT, and IBM AT are 
trademarks of International Business Machines. 


Microsoft and XENIX are trademarks of 
Microsoft Corporation. 
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MAGUS, INC. 
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Bellaire, TX 77401 


ANNOUNCING ... . High performance 
APL Interpreter using MC68000 32 bit 
coprocessors and NS32081 floating point 
processors totally integrated with DOS and 
Novell Netware hardware and software 
environment. MultiAPL coprocessors offer 
1MB or 4MB RAM for large APL work- 
spaces and the fastest processing facilities 
available under DOS or Netware. 


MumnAPL 


EXPLORE 
[ 640K | + [ 1MB or 4mB | 


Full component multi-user file system 
Btrieve file interface 

No restrictions on object size 
Shared variable interface 

Uses standard DOS files 

Overlays (functions/variables) 

10 & 12 MHZ coprocessors available 
Extended superset of IBM’s VSAPL 
APL*PLUS conversion utilities 

Full screen facilities included 
Enhanced version of APL.68000 
Run time versions available 


COMPARE 


BYTE Magazine 
Calculations Benchmark 
Double Precision Numbers 


(All systems with one user) 


Fortran 
VAX-11/780 


MultiAPL V6.0 
LBM AT 


STSC V5.2 
APL *PLUS PC 
IBM AT/80287 


MultiAPL V6.0 
1BM PC 


STSC V5.2 
APL *PLUS PC 
LBM PC/8087 


' ' 
0 Seconds 


INTRODUCTORY OFFER 


$995 


GOOD THRU 4/30/87 
INCLUDES: APL INTERPRETER 
AND REFERENCE MANUAL, 10 MHZ 
COPROCESSOR WITH 1 MB RAM 
(No Wait State) 

Optional Math Processor $295 
Order direct for $995 + Shipping/handling 
($18 US, $20 Canada) VISA/MC/AMEX add 4%. 


Certified check, MO, COD. OFFER GOOD IN, 
U.S. AND CANADA ONLY. 


30 DAY MONEY BACK GUARANTEE 


SPENCER 


ORGANIZATION, INC. 
P.O. BOX 248 WESTWOOD, N.J. 07675 
(201) 666-6011 


Btrieve is a trademark of Softcraft, Inc. 
APL *PLUS is a trademark and service 
mark of STSC, Inc. 
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Listing Four (Listing continued, text begins on page 34.) 


STRING8O = ARRAY [0..80-1] OF CHAR; 
STRING255 = ARRAY [0..255-1] OF CHAR; 


VAR 
Line, DEFAULTLINE: STRING255; 
Pattern: STRING40; 


(* Function to scan Text_Line with Pattern string, containing possible *) 
(* combination of wildcards. *) 


PROCEDURE PatternSearch(TextLine: (*--> STRING255 *) ARRAY OF CHAR; 
Pattern: (*--> STRING40 *) ARRAY OF CHAR): INTEGER; 


VAR 
NumTokens: INTEGER; 
Token: ARRAY [1..MAX] OF STRING40; 


(*--> PROCEDURE INC was removed *) 


PROCEDURE OffsetPos(Strl, Str2: (* STRING80 *) ARRAY OF CHAR; 
Ptr: INTEGER): INTEGER; 


VAR 
Ptr2: INTEGER; 


VAR OffsetPosResult: INTEGER; 
BEGIN 
(*--> Delete(Strl, 1, Ptr-1); *) 
IF Ptr > 0 THEN Delete(Stri, 0, Ptr-1) END; 
Ptr2 := Pos(Str2, Stril); 
(*--> IF Ptr2 > 0 THEN *) 
IF CARDINAL(Ptr2) <= HIGH(Strl) THEN 
Ptr2 := Ptr2 + Ptr - 1; 
ELSE (*--> ELSE clause added *) 
Ptr2 := HI; 
END; 
OffsetPosResult := Ptr2; 
RETURN OffsetPosResult 
END OffsetPos; (* Offset _Pos *) 


PROCEDURE ScanPattern; 


VAR 
CharPos, PatternLength, Ptr, Ptr2: INTEGER; 


BEGIN 
(*--> CharPos := 1; *) CharPos := 0; 
NumTokens := 0; 
(*-<> Ptr s= ls *) Ptr -s< 0> 
PatternLength := Length(Pattern); 
(*--> WHILE CharPos <= PatternLength DO *) 
WHILE CharPos < PatternLength DO 

CASE Pattern[(CharPos]} OF 


#9t.e. 
e . 


IF 
CharPos > Ptr THEN 


INC (NumTokens) ; 
Copy (Pattern, Ptr, (CharPos-Ptr), Token[{NumTokens]); 


END; (*--> IF *) 
Ptr2 := CharPos; 
WHILE Pattern[Ptr2] = ‘?' DO 
INC (Ptr2) 
END; 
INC (NumTokens) ; 
Copy (Pattern, CharPos, (Ptr2-CharPos), Token[{NumTokens]); 
Ptr s= Ptr2; 


CharPos := Ptr2 


| sat Dh 
(* Resolve any pending strings *) 
IF 
CharPos > Ptr THEN 


INC (NumTokens) ; : 
(continued on page 82) 
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tH] SYSTEM BUILDERS™ California: 800-368-7600 


TSF is owned and operated 
by programmers, So we 
understand your needs. We 
believe and practiice integrity 
in all business dealings. We 
advertise real prices and offer 
our best price to all customers. 
We provide prompt delivery of 
current product versions. 


We accept checks, Visa, 
MasterCard and American 
Express. We charge your card 
only when we ship and do not 
add asurcharge. Free UPS 
delivery on orders over $100. 
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most products. Give us a 


try! 


The Software Family 
649 Mission Street 

San Francisco, CA 94105 

(415) 957-0111 


Microsoft Quick Basic (List $99) $65 
Summit Better Basic (List $199) $160 
MicroHelp Mach 2 (List $75) $60 
MicroHelp Stay-Res (List $95) $75 
Sterling Castle Tools (List $99) $80 


Datalight C (List $99) $75 
Microsoft C w/Codeview ($450) $285 
Lattice C (List $500) $289 
Mark Williams C (List $500) $319 
Rational Instant C $375 
Gimple C-Terp (List $300) $224 
Run/C Professional (List $250) $160 
Run/C Interpreter (List $120) $85 
Gimpel PC Lint (List $139) $103 
Blaise View Manager (List $275) $197 
Lattice Curses (List $125) $90 
Essentails Graphics (List $250) $200 
Blaise C Tools+ (List $175) $125 
Essentials Utility (List $185) $130 
Greenleaf Functions (List $185) $130 
Greenleaf Comm (List $185) $130 


Blaise Async Manager ($175) $125 


expands Basic's horizons with window 
management, input editing, array 
sorting and print formatting. It also 
provides MSDOS/BIOS function calls 
and allows you to break the 64K data 
barrier. Written in assembler for high 
performance. For Bascom, Quick 
Basic , BASICA and GWBASIC. (List 
$75) 


Microsoft Pascal (List $300) $219 
Blaise View Manger (List $275) $197 
Blaise Async Manager ($175) $125 
Blaise Pascal Tools+ (List $175) $125 


Turbo Pascal BCD & 8087 ($100) $80 
Software Channels Alice ($95) $85 
Kydor Symbolic Debugger ($49) $40 
Blaise Turbo Async ($100) $80 
Blaise Power Tools ($100) $80 
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Custom Software PC/VI ($149) $119 


MKS Toolkit (SList $139) $120 
Periscope | (List $295) $225 
Periscope II (List $145) $108 
Phoenix Plink+ (List $495) $325 
Phoenix Pfinish (List $395) $275 
Phoenix Pfix+ (List $395) $250 
Polytron Make (LIst $99) $80 


Quilt SRMS + Qmake (List $199) $165 
Seidl SVM + SMK (List $379) $330 








evaluates 
your source code to locate insidious C 
bugs like "=" instead of "==" and 


mismatched function parameters. 
Evaluates multiple source files to 
validate use of all public functions and 
variables. Compatible with all popular 
compilers. 30 day trial period (15% re- 
stock fee). (List $139) 


speeds debugging with multiple 
windows, symbolic memory address- 
ing, and sophisticated trace and 
breakpoints. Includes an NMI break 
switch so you can interrupt programs 
at any time without pre-setting break 
points -- ends guesswork for hard-to- 
locate crashes. (List $145) 


provides symbolic 
debugging for Turbo Pascal programs. 
Includes trace, breakpoint, memory 
display and memory modification. 
Runs from within Turbo's environment, 
so you don't loose any Turbo features. 
Written in assembler for speedy 
operation and low memory overhead. 
(List $49) 


provides back- 
ground file transfers and e-mail for your 
PC. Incoming and outgoing calls are 
processed automatically while you con- 
tinue with your normal work. Outgoing 
calls can be scheduled to take advan- 
tage of late night phone rates and to 
concentrate messages in a multi-node 
RamNet network. 
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Listing Four (Listing continued, text begins on page 124.) 


Copy (Pattern, Ptr, (CharPos-Ptr), Token[{NumTokens]); 
END; 

INC (NumTokens) ; 

Token[{NumTokens,0] := Pattern[(CharPos]; 
Token[(NumTokens,1] := OC; 


Ptr := CharPos+l; 


ELSE 
END; (* CASE *) 
INC (CharPos) 
END; (* WHILE *) 
(* Store any trailing characters *) 
IF 
CharPos > Ptr THEN 


INC (NumTokens) ; 
Copy (Pattern, Ptr, 
END; 
END ScanPattern; 


(PatternLength-Ptr+1), Token(NumTokens]); 


(* Scan Pattern *) 


PROCEDURE LocatePattern(): INTEGER; 


VAR 
I, FirstChar, Ptr, Ptr2: INTEGER; 


VAR LocatePatternResult: INTEGER; 
BEGIN 

FirstChar := 0; 

(Fp PCr 58-25 a) Pere Os 

(*=—> Ptr2 := lz *) Ptr2 := 03 

i 4:79 

WHILE I <= NumTokens DO 


IF 
(*--> INTEGER (Pos('?', Token[{I])) > 0 THEN *) 
Pos('?', Token[I]) <= HIGH(Token[{I]) THEN 


(* Sub-pattern has one or more '?' *) 
INC (Ptr, . INTEGER (Length (Token[I])))? 
(* does the text following the '?..?' match ? *) 
Ptr2 := OffsetPos(Line, Token[{I+1], Ptr); 
IF Ptr <> Ptr2 THEN 
(t¥<=3>< Ptr]: se O° *) Ptr2 >=). HI 
END; 
INC (I); 
END; 
(*--> IF (INTEGER (Pos('?', Token[I])) > 0) OR (Token[I] <> '*') THEN *) 
IF (Pos('?', Token[{I}) <= HIGH(Token[I])) OR 
(Token[{I,0] <> '*') THEN 
Ptr2 := OffsetPos(Line, Token[{I], Ptr) 
END; 
(*--> IF (Token[{I] <> ‘**) THEN *) 
IF Token{I,0] <> ‘** THEN 


IF (*--> (Ptr2 = 0) AND (FirstChar > 0) THEN *) 
(Ptr2 = HI) AND (FirstChar < HI ) THEN 
(*--> FirstChar := 0; *) FirstChar := HI; 


DEC (I, 1) 


ELSIF (*--> (Ptr2 = 0) AND (FirstChar = 0) THEN *) 
(Ptr2 = HI) AND (FirstChar = HI) THEN 
I := NumTokens 
ELSE 


IF (*==-> (FirstChar =-0). *) 
(FirstChar = HI) THEN 
FirstChar := Ptr2 
END; 
Ptr := Ptr2+INTEGER (Length (Token[I])); 
END; 
END; 
INC (I); 
END; (* WHILE I *) 
LocatePatternResult := FirstChar; 
RETURN LocatePatternResult 
END LocatePattern; (* Locate Pattern *) 


VAR PatternSearchResult: INTEGER; 
BEGIN (* Pattern Search *) 
ScanPattern; 


(continued on page 84) 
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The BEST just got BETTER! 


If you're serious about software 
development, consider the SEIDL 
MAKE UTILITY (SMK). SMK is 
not just another copy of the Unix 
Make. It was specifically designed 
to deliver features and performance 
not found in other makes. 


Y Structured Language to 
describe dependencies in a clear, 
concise and portable manner. 


VY Rich Command Set 


includes parameterized macros, 
variables, if-then-else, iteration, 
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Listing Four (Listing continued, text begins on page 34.) 


PatternSearchResult := LocatePattern (); 
RETURN PatternSearchResult 
END PatternSearch; (* Pattern Search *) 


BEGIN (*------------- MAI N --e222<--------- "y 
ClrScr; 
DEFAULTLINE := ‘Namir Clement Shammas'; 
WriteString(stdinout, ‘Default string is : ', 0); 
WriteString(stdinout, DEFAULTLINE, 0); 
WriteLn (stdinout) ; 
WriteLn (stdinout) ; 
WriteString(stdinout, ‘Enter string ', 0); 
ReadBuffer (on) ; 
ReadString(stdinout, Line); 
ReadLn (stdinout) ; 
ReadBuf fer (off); 
WriteLn (stdinout) ; 
IF (*--> Line = '' THEN *) 
Line[{0] = OC THEN 
(*--> Line := DEFAULTLINE *) 
Assign (DEFAULTLINE, Line) 
END; 
WriteString(stdinout, ‘Enter search pattern string ', 0); 
ReadBuf fer (on) ; 
ReadString(stdinout, Pattern); 
ReadLn (stdinout) ; 
ReadBuf fer (off); 
WriteLn (stdinout) ; 
WriteString(stdinout, ‘Matches at position ', 0); 
WriteInt (stdinout, (PatternSearch(Line, Pattern) + 1), 0); 
WriteLn (stdinout); 
WriteLn (stdinout) ; 


END PatternSearchTest. End Listing Four 


Listing Five 


Listing 5. Turbo Pascal program that uses sets for character-counting 
histograms. 


PROGRAM Sets; 


(* Program for the demonstration of translating sets *) 
(* by Namir C. Shammas a 


TYPE CharSet = SET OF CHAR; 
STRING30 = STRING([30]; 
LSTRING = STRING[255]; 


VAR DigitSet, UpperCaseSet, LowerCaseSet : CharSet; 
OK, C : CHAR; 
I, J, Count Digits, Count_Upper, 
Count_Lower, Count Others : INTEGER; 
Filename : STRING30; 
Line : LSTRING; 
InFile : TEXT; 


PROCEDURE Display Histogram(Row, Count : INTEGER); 


BEGIN 
GOTOXY ((11 + Count div 100) ,Row); 
WRITE (°**) 2 

END; 

BEGIN 

REPEAT 
DigitSet := ['0'..'9']; 
UpperCaseSet ;:= [('A'..'Z']; 
LowerCaseSet := ['a'..'z']; 


WRITE (‘Enter filename '); 
READLN (Filename); WRITELN; 


ClrScr; 
WRITELN('Digits : 
WRITELN('Uppercase ' 
WRITELN (‘Lowercase ' 
WRITELN (‘Others ; 
Count Digits := 0; 
Count Upper := 0; 
Count Lower := 0; 
Count Others := 0; 


Assign(InFile, Filename); 


~— 
se Se Se Se 
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Reset (InFile); 
WHILE NOT EOF(InFile) DO BEGIN 
READLN (InFile, Line) ; 
FOR I := 1 TO Length(Line) DO BEGIN 
C := Line[{I]; 
IF C IN DigitSet THEN 
Count Digits := Count_Digits + 1 
ELSE IF C IN UpperCaseSet THEN 
Count Upper := Count Upper + 1 
ELSE IF C IN LowerCaseSet THEN 
Count Lower := Count Lower + 1 


ELSE 
Count Others := Count_Others + 1; 


END; 


Display Histogram(1,Count_ Digits); 
Display Histogram({2,Count_Upper) ; 
Display Histogram(3,Count_Lower) ; 
Display Histogram(4,Count Others); 


END; 
Close (InFile); 
GOTOXY (1,20)? WRITE('Want to scan another file? (Y/N) ‘); 
READLN (OK) ; 
UNTIL NOT (OK IN [‘Y'‘, ‘y']);3 
GOTOXY (1,20); ClrEol; WRITELN(‘End of program'); 
END. End Listing Five 


Listing Six 


Listing 6. Modula-2 program that uses sets for character-counting 
histograms. 


MODULE Sets; 


FROM Strings 
IMPORT Assign, Insert, Delete, Pos, Copy, Concat, Length, CompareStr; 
FROM ScreenHandler 
IMPORT ClrEol, ClrScr, DelLine, InsLine, GotoxXY, WhereX, WhereY, 
CrtInit, CrtExit, LowVideo, NormVideo, HighVideo, SetAttribute, 
GetAttribute, normalAtt, boldAtt, reverseAtt, underlineAtt, 
blinkAtt, boldUnderlineAtt, blinkUnderlineAtt, boldBlinkAtt, 
reverseBlinkAtt, boldUnderlineBlinkAtt; 
FROM TFileIO 
IMPORT Append, AssignFile, Close, Erase, Flush, Rename, 
Reset, Rewrite, Truncate, Eof; 
FROM TTextIO 
IMPORT ReadInt, ReadCard, ReadChar, ReadString, ReadLn, ReadBuffer, 
WriteInt, WriteCard, WriteChar, WriteString, WriteBool, WriteLn, 
Eoln, SeekEof, SeekEoln; 
FROM TKernellIO 
IMPORT File, FileType, OptionMode, 
StatusProc, ReadProc, WriteProc, ErrorProc, 
stdinout, input, output, con, trm, kbd, lst, aux, usr, 
conStPtr, conInPtr, auxInPtr, usrInPtr, conOutPtr, lstOutPtr, 
auxOutPtr, usrOutPtr, errorPtr, IOresult, KeyPressed, I0Buffer, 


IOCheck, DeviceCheck, CtrlC, InputFileBuffer, Output FileBuffer; 


(* The following two IMPORT statements are manually added *) 
FROM LongSet 

IMPORT BuildSet, InSet, SetOfChar, MakeEmptySet, Include; 
FROM SYSTEM IMPORT WORD; 


(* Program for the demonstration of translating sets *) 
(* by Namir C. Shammas “ 


TYPE 
STRING30 = ARRAY [0..30-1] OF CHAR; 
LSTRING = ARRAY [0..255-1] OF CHAR; 


VAR 
DigitSet, UpperCaseSet, LowerCaseSet, 
YesNo (*--> this one is added *) : SetOfChar; 
OK, C: CHAR; 
I, J, CountDigits, CountUpper, CountLower, CountOthers: INTEGER; 
Filename: STRING30; 
Line: LSTRING; 
InFile: File; 


PROCEDURE DisplayHistogram(Row, Count: INTEGER) ; ; 
BEGIN . : , (continued on next page) 
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A Reconfigurable 
Programmer’s Editor 
With Source Code 


ME is a high quality programmer’s text ed- 
itor written specifically for the IBM PC. It 
contains features only found in the more 
expensive programmer's text editors. These 
features include: 


e Multiple Windows 
e Column cut and paste 
e Regular Expressions 
e C-like Macro Language 
¢ Keyboard Macros 
e Reconfigurable Keyboard 





New commands and features may be add- 
ed to the editor by writing programs in its 
macro language. The language resembles 
C, and it’s extremely easy to write and 
examine macros when you are not dealing 
with a parenthesized language like LISP. 
The macro languages comes with a rich set 
of primitives for handling strings and 
changing the editor environment. 


The source code option lets you see how 
text editors are written, and gives you real- 
world applications of various data struc- 
tures. You will also learn how to write in- 
terpreters by examining code to the macro 
language compiler and interpreter. 


A unique advantage of the source code op- 
tion is that many programmers will have 
the opportunity to examine the code, im- 
prove parts of it, and add additional fea- 
tures. The best of these improvements and 
enhancements will be incorporated into 
future releases, which, as a_ registered 
source code user, you will receive updates 
for. 


The code is written in C, and conforms to 
the ANSI standard. This allows the code to 
be compiled with any compiler that sup- 
ports the ANSI standard. A few of the 
string handling and input-output routines 
are written in 8086 assembly language for 


speed. 
The source code option is perfect for 


OEMs and VARs who want to add a text 
editor to their applications. 





Price for program and on- 
line documentation — 
$34.95 

Price for editor with 
complete source code — 
$84.95 

Special offer — New York 
Word word processor — 
$19.95 — Split screen, mail 
merge, hyphenation, math, 
regular expressions 


MAGMA 
SYSTEMS 


wea seb eakelec dine aegelineedbeti abshaneboieseecnaaaitialoaes 
138-23 Hoover Ave., Jamaica, NY 11435 
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SQL Compatible Query System adaptable to any 
operating environment. 


CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 


Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(Screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 


Screen 1/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


$395.00 


C Interpreter. Run the interpreter on any 
hardware and on any operating system. 
Develops true intermediate code, allowing full 
C features in an interpreter. User configurable 
interface to compiler library allows linkage 
with compiled routines. 


HARDWARE AND FILE SYSTEM 
INDEPENDENT 


“KURTZBERG 
GomPpuTER SYSTEMS 


41-19 BELL BLVD. 
BAYSIDE, N.Y. 11361 


VISA/Master Charge accepted 


(718) 229-4540 


*C-tree is a trademark of FairCom 
IBM, SEQUEL. PC, XT, AT are trademarks of IBM Corp 
MS-DOS and Xenix are trademarks of Microsoft Corp 


CQL and the COL Logo are trademarks of Kurtzberg Computer 
Systems 
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isting Six (Listing continued, text begins on page 124.) 


Got oxY ((11+ (Count DIV 100)), Row); 
WriteChar (stdinout, ‘*', 0); 
END DisplayHistogram; 


BEGIN 
REPEAT 

(* The following three statements were edited from the original lines *) 
BuildSet (DigitSet,ORD(‘'0O'),ORD('9'))? 
BuildSet (UpperCaseSet,ORD('A'),ORD('Z')); 
BuildSet (LowerCaseSet,ORD('a'),ORD('z'))? 

(* The next three lines are inserted to support sets for Yes/No answers *) 

MakeEmptySet (YesNo) ; 

Include (YesNo, WORD{ORD('y')))-; 

Include (YesNo, WORD(ORD('Y'))); 


WriteString(stdinout, ‘Enter filename ', 0); 
ReadBuffer (on); 

ReadString(stdinout, Filename) ; 

ReadLn (stdinout) ; 

ReadBuffer (off); 

WriteLn(stdinout) ; 

Cirsers 

WriteString(stdinout, ‘Digits '. OS 
WriteLn(stdinout); 
WriteString(stdinout, ‘Uppercase ‘, 0); 
WriteLn(stdinout) ; 
WriteString(stdinout, ‘Lowercase ', 0); 
WriteLn(stdinout); 
WriteString(stdinout, ‘Others ... Ore 
WriteLn(stdinout) ; 

CountDigits := 0; 

CountUpper := 0; 

CountLower := 0; 

CountOthers := 0; 

AssignFile(InFile, Filename, text); 
Reset (InFile, 0); 

WHILE NOT Eof(InFile) DO 


ReadString(InFile, Line); 

ReadLn (InFile); 

(* Loop limits were shifted by 1 from Pascal version *) 
FOR I := 0 TO Length(Line)-1 DO 


C := Line[(I]; 

(* InSet() is used to test char C instead *) 
(* of BITSET{} generated by the Translator *) 
IF InSet (DigitSet,ORD(C)) THEN 


INC (CountDigits, 1) 
ELSIF InSet (UpperCaseSet,ORD(C)) THEN 


INC (CountUpper, 1) 
ELSIF InSet (LowerCaseSet, ORD(C)) THEN 


INC (CountLower, 1) 
ELSE 
INC (CountOthers, 1) 
END; 
END; 
DisplayHistogram(1, CountDigits); 
DisplayHistogram(2, CountUpper) ; 
DisplayHistogram(3, CountLower); 
DisplayHistogram(4, CountOthers) ; 
END; 
Close (InFile); 
GotoxXY (1, 20); 
WriteString(stdinout, ‘Want to scan another file? (Y/N) ', 0); 
ReadBuffer (on); 
ReadChar (stdinout, OK); 
ReadLn (stdinout); 
ReadBuffer (off); 
UNTIL NOT (InSet (YesNo, ORD(OK))); (* Boolean expression was edited *) 
GotoXY(1, 20); 
ClrEol; 
WriteString(stdinout, 'End of program', 0); 
WriteLn (stdinout) ; 
END Sets. 


Listing Seven 


Listing 7. Turbo Pascal program that performs direct screen memory access 
by using simple absolute variables. 


End Listing Six 
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Program Screen; 


(* Program to demonstrate direct memory access in Turbo Pascal *) 
TYPE STRING80 = STRING[(80]; 


VAR Message : STRING80; 
Row, Col : INTEGER; 


PROCEDURE DISP_STR(S : STRING80; Row, Col : INTEGER) ; 
(* Procedure to write a string to the screen memory *) 


TYPE SCREEN80 = ARRAY [(1..25,1..80,1..2] OF CHAR; 


VAR DISP : SCREEN80 Absolute $B000:0000; 
(* For color display use *) 
(* DISP : SCREEN80 Absolute $B800:0000; *) 
I, J : INTEGER; 


BEGIN 
J := Length(S); 
FOR I := 1 TO J DO 
DISP[Row,Col + I - 1,1] s= S{I]; 
END; 


BEGIN 
CizScrs 
WRITELN (‘Enter message '); 
READLN (Message) ; 


CLrser?y 
Col s= 13 
FOR Row := 22 DOWNTO 1 DO 
DISP_STR (Message, Row, Col+Row); 
WHILE NOT Keypressed DO; 
CirSers 


END. End Listing Seven 


Listing Eight 


Listing 8. Modula-2 program that performs direct screen memory access 
by using simple absolute variables. 


MODULE Screen; 


FROM Strings 
IMPORT Assign, Insert, Delete, Pos, Copy, Concat, Length, CompareStr; 


FROM ScreenHandler 
IMPORT ClrEol, ClrScr, DelLine, InsLine, GotoXY, WhereX, WhereY, 
CrtInit, CrtExit, LowVideo, NormVideo, HighVideo, SetAttribute, 
GetAttribute, normalAtt, boldAtt, reverseAtt, underlineAtt, 
blinkAtt, boldUnderlineAtt, blinkUnderlineAtt, boldBlinkAtt, 
reverseBlinkAtt, boldUnderlineBlinkAtt; 


FROM TTextIO 
IMPORT ReadInt, ReadCard, ReadChar, ReadString, ReadLn, ReadBuffer, 
WriteInt, WriteCard, WriteChar, WriteString, WriteBool, WriteLn, 
Eoln, SeekEof, SeekEoln; 


FROM TKernellO 
IMPORT File, FileType, OptionMode, 
StatusProc, ReadProc, WriteProc, ErrorProc, 
stdinout, input, output, con, trm, kbd, lst, aux, uSI, 
conStPtr, conInPtr, auxInPtr, usrInPtr, conOutPtr, lstOutPtr, 
auxOutPtr, usrOutPtr, errorPtr, TIOresult, KeyPressed, IOBuf fer, 
IOCheck, DeviceCheck, CtrlC, InputFileBuffer, Output FileBuffer; 


(* Program to demonstrate direct memory access in Turbo Pascal *) 


TYPE 
STRING8O = ARRAY [0..80-1] OF CHAR; 


(continued on next page) 
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The professional 
diagnostic facility for C 


PC-lint lets you zap swarms of C 
bugs and glitches at a time. 

Now you can uncover the quirks, 
inconsistencies, and subtle errors 
that infest your C programs... 
waiting to bite you. PC-lint finds 
them all ... or as many as you 
want ... in one pass. Set PC-lint 
to match your own style. 


Outperforms any lint at any price 


@ Full K&R support and 
common ANSI enhancements 
(even MS keywords) 

= Finds inconsistencies 
(especially in function calls 
across multiple modules!) 

# Modifiable library descriptions 
for 8 popular compilers ) 

= Super fast,one-pass operation 

= Suppress any error message | 

# Zillions of options 


PRICE $139 * MC - VISA» COD 
Includes USA shipping and handling. 





30-day guarantee 
Runs under MS-DOS 2.0 and up, and 
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VAR 
Message: STRING80; 
Row, Col: INTEGER; 


(* Procedure to write a string to the screen memory =) 
PROCEDURE DISPSTR(S: ARRAY OF CHAR; 
Row, Col: INTEGER); 


TYPE 


SCREEN80 = ARRAY [(1..25), [1..80], 


VAR 
DISP [OBOO0OH:00H] : SCREEN80; 
(* For color display use *) 
(* DISP [OB800H: 00H} 


I, J: INTEGER; 


BEGIN 
J := Length(S); 
(*--> FOR I := 1 TO J DO *) 
FOR I := 0 TO J-1 DO 





(* Edited *) 


: SCREENN80 *) 


{1..2] OF CHAR; 


DISP (Row, Col+tI, 1] := S{I]) (* Edited *) 


END; 
END DISPSTR; 


BEGIN 
Cirscer; 


WriteString(stdinout, ‘Enter message ', 0); 


WriteLn (stdinout) ; 
ReadBuffer (on) ; 
ReadString(stdinout, Message) ; 
ReadLn(stdinout) ; 
ReadBuf fer (off); 
Cizvser: 
Cots: Te 
FOR Row := 22 TO 1 BY -1 DO 
DISPSTR(Message, Row, Col+Row) 

END; 
WHILE NOT KeyPressed() DO 
END; 
CLrsce; 

END Screen. 


Listing Nine 


Listing 9. 


Modula-2 program that displays and alters the states of the 


{Caps Lock] and (Num Lock] keys on an IBM PC or compatible. 


Listing Eight (Listing continued, text begins on page 124.) 








Here’s why you should choose Periscope as your debugger... 


You'll get your programs running fast. “It works 
great! A problem we had for three weeks was 
solved in three hours,” writes Wade Clark of 
MPPi, Ltd. 


You’ll make your programs solid. David Nanian 
says, “I can’t live without it!! BRIEF, a text 
editor my company wrote, would not be as stable 
as it is today without Periscope.” 


You’ll protect your investment. We won’t forget 
you after the sale. You’ll get regular software 
updates, including a FREE first update and 
notice of later updates. You'll get technical help 
from Periscope’s author. And you’ll be able to 
upgrade to more powerful models of Periscope if 
you need to. One Periscope user writes, “. . . 


your support has won over even the heart of this 
hardened programmer!” 


You deserve the best. Thousands of programmers 
rely on the only debugger that PC Tech Journal 
has ever selected as Product of the Month 
(1/86). You owe it to yourself to find out why, 
first hand. 


You can try it at no risk. You get an uncondi- 
tional 30-Day, Money-Back Guarantee, so you 
can’t lose. 


Start saving time and money now — order toll- 
free, 800/722-7006. Use MasterCard, Visa, 
COD, or a qualified company purchase order. As 
one user puts it, Periscope is “one of the rare 
products, worth every penny!” 


Periscope I, software, manual, 
protected memory board and 


breakout switch ..................00- $295 
Periscope II, software, manual, and 

breakout switch ..................... $145 
Periscope II-X, 

software and manual ............... $115 


Add shipping - $3 US; $8 Canada; $24 elsewhere. 
Ask about air shipment if you can’t wait to get 
your programs up and running! 


PERIS E 


The Periscope Company, Inc. 
(formerly Data Base Decisions) 
14 Bonnie Lane, Atlanta, GA 30328 404/256-3860 
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MODULE KeyLock; 


( 


+ + 4+ + 


+ + + + & 


* James Janney, June 1986 
— 


This program interactively displays and changes the states 

of the Caps Lock and Num Lock keys on an IBM PC or compatible. 
It is particularly useful with keyboards that have LEDS on these 
keys; these sometimes get out of sync. 


This program is adapted from FL.COM by Patrick Swayne, from 
the June 1986 issue of REMark magazine. 


The declaration of keyflag is a feature of the Logitech compiler. 


FROM Terminal INPORT ReadString, WriteString, WriteLn; 


CONST 
NumLock = 5; 
CapsLock = 6; 


VAR 


(* Num Lock bit *) 
(* Caps Lock bit *) 


keyflag [40H:17H] : BITSET; (* ROM-BIOS keyboard status word *) 


cmd : ARRAY [1..80] OF CHAR; 


BEGIN 
LOOP 

WriteString("1. Caps Lock is “); 

IF CapsLock in keyflag THEN 
WriteString(“on") 

ELSE 
WriteString ("off") 

END; 

WriteLn; 


WriteString("1. Num Lock is "); 
IF NumLock in keyflag THEN 
WriteString ("on") 
ELSE 
WriteString ("off") 
END; 
WriteLn; 


WriteString ("Enter option to change: 


ReadString (cmd); 


CASE cmd[1] OF 


'1' : keyflag := keyflag / {CapsLock)} 
| '2' : keyflag := keyflag / {NumLock} 


ELSE 
EXIT 
END; 


WriteLn; WriteLn; 


END; 
END KeyLock. 
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(* toggle Caps Lock *) 
(* toggle Num Lock *) 


End Listings 


MULTITASKING 


Introducing 


The new multitasking software 
for the IBM-PC. 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDos Plus an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 

e Your software continues to run 
under DOS. No need to learn a 
new operating system. 

e Use the compilers you already 
have. Supports software written in 
any language. 

e Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend/ 
resume programs. 

e Programmatic interface via INT 15H 
for the following. 


* |ntertask message communica- 
tion. Send/receive/check mes- 
sage present on 64 message 
queues. 

Task control by means of 
semaphores. Get/release/check 
semaphores. 

Change priority-128 priority 
levels. 

Suspend task for specified 
interval. 

Spawn and terminate external 
and internal tasks. 
Disable/enable multitasking. 
and more! 


e Runs most commodity software 
including: Lotus 1-2-3, Dbase, 
Wordstar, and others. 

e Independent foreground/ 
background displays. 

e Access to DOS while applications 
are running. 


Hardware/Software Requirements 
IBM PC/XT/AT or true clone. Mono- 
chrome/CGA display adaptors or 
equivalent cards only. Enough memory 
to hold MultiDos Plus (48 KB) and 
all your application programs. Also 
may need 4 or 16 KB memory for 
‘hidden screens’’ for each active task. 
MS-DOS (or PC-DOS) 2.0 or later 
operating system. 


ony $29.95 5551 


Outside USA add $7.95 shipping and handling. 


Visa and Mastercard orders call toll- 
free: 1-800-367-6707. In Mass call 
617-651-0091, or send check or money 


der to: 
~~" NANOSOFT 
13 Westfield Rd, Natick, MA 01760 


MA orders add 5% sales tax. Write for 
source code and quantity price. 
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COLUMNS 


GC CHESI 


Nroti: Hashing, Expressions, and Roman Numerals 


fter the shell was published in 
this column, I vowed that I'd 
stay away from long programs. Pub- 
lishing them was just too much work. 
I'm going to break my own rule for 
the next few months, however, by 
presenting nr, my version of the Unix 
text formatter, nroff. There are two 
reasons for this. First, nr includes a 
bunch of subroutines that are useful 
even if you're never going to use it as 
a word processor. Good examples are 
the hash table management func- 
tions and the general-purpose ex- 
pression analyzer, which I'll discuss 
this month. Second, the program is 
an almost complete implementation 
of nroff and it includes several of 
troff's features as well. It does hy- 
phenation and proportional spacing, 
it can format equations and matrices, 
and it’s easily configurable to most 
printers. I have it driving a Brother 
HR-15 (a Diablo-compatible daisy- 
wheel printer), a Thinkjet, and an HP 
Laserjet+ laser printer. Nr can do as 
much as many word processors that 
cost several hundred dollars. It is also 
considerably more powerful than 
any of the various roff spin-offs avail- 
able from various users’ groups and 
bulletin boards. Unlike most of these, 
it doesn't derive from the word pro- 
cessor in Software Tools in Pascal.? 
I hadn't published the program be- 
fore now because I’d just about con- 


by Allen Holub 


vinced myself that it was obsolete. 
My research into the newer 
wizzywig editors has convinced me 
otherwise, however. 

Text formatters, like many classes 
of computer tools, can be divided into 
two Categories. The interpretive for- 
matters (such as WordStar or Micro- 
soft Word) combine text entry or edit- 
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ing together with text formatting: 
adjusting margins and line length, 
hyphenating, and so on. The com- 
piled word processors, such as nroff 
and TeX work like compiled lan- 
guages do. You create an ASCII input 
file composed of mixed text and for- 
matting commands and then submit 
this file to a second program that ac- 
tually does the formatting. 

Both these techniques have their 
advantages and disadvantages— 
something that was made painfully 
clear to me a few months ago when I 
tried to typeset a book with Version 
3.0 of Microsoft Word. I really like the 
idea of being able to see what the doc- 
ument will look like as I’m typing it. 
Word, for example, actually displays 
italicized text in italics on the screen. 
Using Word turned out to be aserious 
mistake, however. It may do a nice 
job on a newsletter or a medium- 
length paper, but when it comes to 
something real, such as a book, it just 
can't do the job. If you can’t type, if 
you're afraid of computers, and if 
youre never going to try to create a 
document longer than a newsletter, 
Word is the program for you. If any 
of the above don’t apply to you, stay 
away from it. 

First of all, it takes two to three 
times longer for me to enter text us- 
ing Word than it does with my nor- 
mal editor. I'm a touch-typist—if I 
don't have to lift my hands from the 
home row of the keyboard, I can type 
about 85 words a minute. Microsoft 
Word doesn’t permit this, however. 


Many things have to be done with the 
function keys. Then there’s that idiot 
mouse. The nonmouse commands 
are so involved that they’re almost 
useless. Many of them use ten or 
more keystrokes to do a simple action 
such as deleting a block of text. The 
mouse is really an integral part of the 
program. So, every time you need to 
delete some text, change a font, or 
whatever, you have to let go of the 
keyboard, find the idiot mouse, 
which has buried itself under piles of 
paper, clear off an area of desk big 
enough for the thing to move, and 
then execute the command. If you 
can't type, this might not be a prob- 
lem, but I'd think that the mouse-re- 
lated problems alone would severely 
limit the utility of Word in a normal 
office environment. All this is com- 
pounded by Word's refusal to imple- 
ment even the simplest editing 
control codes. For example, Word 
does not recognize Ctrl-H as a back- 
space—you have to find the back- 
space key, which is way up in the 
boonies on the IBM keyboard. I found 
I couldn't type anything without Pro- 
Key installed under Word, and even 
then text entry was difficult. 

The next problem is that Word 
doesn't really show you what you're 
getting. It doesn't display text in the 
correct point sizes. It lets you see how 
many words will be on the output 
line, but when you do this, the tab 
stops don't display correctly and the 
right margin isn’t adjusted anymore. 
Word doesn’t really format the text 
as you type either—at least, it refor- 
mats the text as part of the printing 
process. The ‘‘compute page break’”’ 
command takes as long to execute as 
my compiled word processor takes to 
format the entire document. 

The final problem, and the one 
that made the program utterly 
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worthless to me, is that Word evi- 
dently keeps the entire document in 
memory at once. Though I have a 
640K system, this isn’t enough to 
typeset a book. The program just 
can’t handle that much text. 
Word has a text-merge feature, but 
evidently it can't be used if you're as- 
sembling an index or table of 
contents. 

So I filed Word in the circular file 
and went back to my own text for- 
matter, nr. It supports all the things 
you need to do most word processing 
applications—multiple fonts and 
point sizes, multicolumn text, hy- 
phenation, proportional spacing, 
both footnotes and endnotes, auto- 
matic index and table of contents 
generation, and so forth. I can use my 
normal editor to enter text.? More- 
over, nr supports an extensive macro 
language that effectively lets you 
change the way the program works 
to suit your needs of the moment. 
Most nr (and nroff) input documents 
don't actually use the primitive com- 
mands supported by the word pro- 
cessor itself; rather, they use various 
macro packages that use these primi- 
tives. The macros can be used in the 
same way as you use subroutines; 
you can pass them arguments, define 
and modify global variables, and so 
forth. Though WYSIWYG isn't avail- 
able, nr supports an adequate screen- 
preview mode. I've configured it so 
that, when ANSLSYS is installed, un- 
derlined text is displayed on the 
screen underlined, boldface is shown 
in high-intensity video, and over- 
struck text blinks. 

It’s going to take several months to 
get the whole program printed in this 
column, so you may find include file 
or subroutine references that aren't 
part of the current month's listings. 
I'll try to minimize this, but a little for- 
ward referencing is inevitable. The 
complete program will be available 
on a disk from DDJ in March. The re- 
mainder of this month’s column is a 
discussion of several nr support rou- 
tines. In the next column I'll give a de- 
tailed users’ manual along with 
more code. I'll finish the code in a 
third column and also present a de- 
tailed program description at that 
time (once all the code is available). 

Much of the support code for nr 
has already been published in previ- 
ous columns. This puts me in some- 
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thing of a quandary because most of 
this code has undergone minor modi- 
fications since its original publica- 
tion. After a great deal of soul-search- 
ing, I’ve decided not to reprint these 
routines, even though there are mi- 
nor changes. The algorithms are basi- 
cally the same, so the earlier articles 
will serve as an adequate reference. 
I’m also assuming that no one in their 
right mind would actually type the 


Included in nr 
are subroutines 
that are useful 
even if you 
never use it 
as a word processor. 


whole thing in by hand when the en- 
tire program will be made available 
on a disk. Nr uses the following, pre- 
viously published, support routines: 


DDJ, May 1985—stoi( ), getargs( ) 

DDJ, June 1985, queues—make- 
queue( ), show_next( ), enqueue( ), 
dequeue( ), sp—used( ) 

DDJ, June 1985, bit maps—setbit( ), 
testbit( ), makebitmap( ) 

DDJ, October 1985, hyphenation— 
hyphen( ) 


Most of the support routines print- 
ed this month are adequately com- 
mented and can stand alone. There 
are three exceptions: A set of general- 
purpose, symbol table maintenance 
functions; a binary-to-ASCII conver- 
sion function that can print in Roman 
numerals and English words as well 
as the usual digits; and a powerful ex- 
pression analyzer. 


Symbol Table Maintenance 
with Hashing 

Listing Three, page 52, presents a set 
of symbol table maintenance func- 
tions that use a hashing strategy for 
table maintenance.‘ They were origi- 
nally written for a compiler project 


but are useful anywhere you need a 
list of objects ordered by name. I’ve 
made the routines as general purpose 
as possible. As was the case in the AVL 
tree routines printed in the August 
1986 issue of DDJ, I've separated the 
actual maintenance functions from 
the part of the program that’s going 
to use the table. That is, all knowl- 
edge of how the table is organized is 
hidden within the maintenance 
functions. The application program 
doesn’t know (or care about) the actu- 
al details. By the same token, the 
maintenance functions don’t know 
about anything the application is do- 
ing with the table. All they know 
about is how to put things in tables 
and take them out again. 

All the routines use the hash.h file 
given in Listing Four, page 58. For 
now let’s avoid the details and consid- 
er the one thing that’s needed from 
this file to use the maintenance func- 
tions—the HASH_TAB structure. A 
HASH_TAB is used in the same way as 
the FILE structure used by the buff- 
ered I/O routines is used. The 
subroutine: 


HASH_TAB *maketab( size ) 
unsigned _ size; 


is analogous to fopen( ); it creates a 
table having the indicated size and 
returns a pointer to it. It turns out 
that hash functions work best if size 
is a prime number. Some likely can- 
didates: are 47, 61, 89; .113,: 327, 15%, 
193, 211, 257, 293, 359, and 401. The 
larger the table, the quicker the ac- 
cess time. On the other hand, the 
larger the table, the larger the table. 
I’ve found 127 and 257 to be reason- 
able numbers. Maketab( ) won't re- 
turn if it can’t make the table (it exits 
with a status of 1 in this case). 

Once a table has been created, ob- 
jects can be inserted with a call to: 


char *addsyn(( tabp, name, size ) 
HASH_TAB “*tabp; 
char “ame; 


where tabp is a pointer returned 
from a previous maketab( ) call, name 
is asymbol name, and size is the size 
of a block of memory that the appli- 
cation will use. Only the first 32 char- 
acters in name are significant; addi- 
tional characters are ignored. 
Addsym( ) won't return if it can't get 


91 


SOFTSTRIP” 


NOW OFFERS YOU SOMETHING 





— 
xX ere ik EE 
SS SE Gi Sf 
FE Z 2A, > 
FE A 
. fas id Tears x 
3, Vs ri 
sy NJ «¢ 
Ava? 
¢ 





NOS FOES 
fewt ee foe a 


h Soe 


en gt 
nets o£ anak) 6 ae, eee he eee i tS mone ely (SS 


CONVENTIONAL DATA HANDLING 





R BEFORE AVAILABLE... 


ae fey aap os ee Tak Se es Ie ree ee oF 


THE SOFTSTRIP SYSTEM 


A CHOICE. 


Until now you were stuck with disks. 

No more. Install our unique STRIPPER™ software 
on your personal computer today and discover the 
many benefits of the fastest, easiest, least expensive 
way to handle information. 


STRIPPER lets you print—- ON PAPER — your own 
machine readable Softstrip data strips using your dot 
matrix printer. The Softstrip System Reader reads that 
information into a computer rapidly. With STRIPPER 
and the reader, your PC and printer become part of 
the most versatile information handling system 
available. 

With this system you can do anything you wish with 
any data you have in your PC — ON PAPER. 


DATA ENTRY: Why use keystrokes when you can 
eliminate them with data strips? Whatever the 
document - invoices, packing slips, memos, letters, 
sales reports, the list is endless — simply printadata 
Strip right on the same printed page. Now you have 
a document that is both human readable and machine 
readable. A typical document can be entered in only 
15 seconds using data strips. And, it ends keystroke 
errors forever. 


DATA DISTRIBUTION: Why copy disks? It’s time 
consuming and expensive. Softstrip data strips will 
end all that. Simply photocopy as many data strips as 
you like and send them by mail. Data strips ignore 
folding, coffee stains, ink marks and, by the way, 
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magnetic fields. And if you’re using telecommunica- 
tions, you can stop making the phone company rich. 


DATA STORAGE AND RETRIEVAL: Why have a 
file of disks and a file of paper? Eliminate one with 
Softstrip data strips. File the data strip with the docu- 
ment. Better still, print the strip right on the document. 
Then put it in a file or binder. 

Retrieval is simple. To find existing data, pull the 
document and its related data strip from the file. 
They’ve been stored together. Then use the reader 
to enter the data. No more hassle trying to match 
documents with the right disk — if you can find it. 


DATA TRANSFER: Why bother with cables, 
modems and phone lines to move files between 
computers? A Softstrip data strip generated by an 
IBM PC can be read into another PC, or compatible, 
an Apple or even a Macintosh. If you work at home 
on a Macintosh, make a data strip on your printer, 
take it into the office and read it into your IBM PC. 
Simple. And we’ve created the utilities to let you do 
that easily. (See Application Notes on opposite page.) 


Fascinating, isn’t it? Anything you can do with disks 
can be done with the Softstrip data strip system — 
faster, easier and at lower cost — ON PAPER. 

All you need is STRIPPER software at $19.95 and 
the Softstrip System Reader at $199.95. 
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NOW! TRANSFER DATA — 
PROGRAM TO PROGRAM WITH 
SOFTSTRIP” i 


Now you can move data between programs quickly and easily using 
SOFTSTRIP data strips. 


Using the Softstrip System, you can move data between computers and 
such programs as WordStar and MacWrite, dBASE and AppleWorks, 
Lotus 1-2-3 and Excel and ReadySetGo and many others. 





We've created a series of several dozen Application Notes on Softstrip data 
strips. These lead you through simple steps to make the file transfer as 
easy as possible, adding even more versatility to your personal computer 
when you purchase the SOFTSTRIP SYSTEM. The advanced system you've 
been hearing so much about. 


All you need to move data between programs is STRIPPER™ software at 
$19.95 and the Softstrip System Reader at $199.95. 


For acomplete list of Application Notes, contact your dealer or call Cauzin. 





Elroy Bond, Vice President and Director of Data Processing at 
Golden State Mutual Life Insurance had a problem with data 
transmission. The difficulty was his telecommunications 
equipment. No matter how reliable and easy-to-use his PC based 
system was, if the phone lines were down or his PC operator was 
ill, he would end up sending disks through the mail from their 
branch offices in Winston-Salem, N.C. and Compton, Westwood, 
and Los Angeles, CA. Besides the hassle of copying a disk and 
using a disk mailer, there was always the possibility of having to 
resend the disk because of damaged data. 


Now the branch offices each have their own copy of the 
STRIPPER™ printing program. When their modem based system 
fails to operate, they just send a document in data strip format. 
Bond is planning on installing SOFTSTRIP Readers at every 
location, so that when he updates their software, all he has to do is 
print out a data strip document on his Epson printer, photocopy it 
and mail it in an envelope for 22 cents. 








i al | 





Users’ Groups: Call for Special User Group Discounts. 

ACT NOW! Don’t delay. See your local Softstrip dealer or call us at This data strip contains 

1-800-533-7323. In Connecticut: 203-573-0150. IBM2MAC, a utility that 

runs on the IBM and 

For Europe and Asia Contact: converts an IBM file to 

CAUZIN Softstrip International, Ltd. Ma ciitiet) SOFIE: 

835 South Main Street 53 Bedford Square 

Waterbury, CT 06706 London, WC1 B3DP England 

(203) 573-0150 01-631-3775 Telex: 263874SOFTST G 


Circle no. 307 on reader service card. 
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the memory. It prints an error mes- 
sage and exits from the program 
with a status of 1 in this case. On suc- 
cess, addsym( ) returns a pointer to a 
block of memory that can be used by 
the application just as if it had been 
returned from malloc( ). The symbol 
name is stored automatically by add- 
sym( ), so it need not be stored again 
in the application area. Note that the 
memory is already attached to the ta- 
ble at this point. That is, the allocate 
and add functions have been merged 
into a single subroutine. 

The application can look for a spe- 
cific symbol with a call to: 


char *findsym( tabp, name ) 
HASH_TAB “*tabp; 
char *name; 


where tabp is a pointer returned from 
maketab( ) and name is a symbol 
name. If the named symbol is in the 
table, the same pointer that was re- 
turned from the original addsym( ) 
call is returned; otherwise, NULL is re- 
turned. The application can use this 
pointer as it sees fit. Note that find- 
sym( ) does not remove the node 
from the table—it just returns a point- 
er to the node’s application area. 

A symbol is deleted by calling: 


delsym( tabp, symp ) 
HASH_TAB “*tabp; 
char “symp; 


where tabp is, again, a pointer re- 
turned from maketab( )and sympisa 
pointer returned from findsym( ). 
Delsym( ) both removes the symbol 
from the table and deletes all memo- 
ry associated with that symbol, in- 
cluding the application ____ 

area. 2 
The basis of all hash | 
strategies is the conver- 
sion of a string into a 
random number. This 
number is then used as 
an index into a large ar- | 
ray—the hash table it- | 
self. In the best hash | =| 
functions, there is virtu- | 
ally no relation between 
the original string and 
the hashed number. L_ 


The purpose of the ran- Code Example 1: A complete hash table 
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domization is to scatter the names as 
evenly as possible throughout the en- 
tire table. In practice, there are al- 
ways a few strings that will hash to 
the same numeric value. This condi- 
tion, calleda collision,can be resolved 
in several ways. The easiest is to 
make the hash table itself an array of 
pointers to structures. Each of these 
points to the head of a linked list. 
When a collision occurs, the new 
node is just linked into the head of 
the list. 

This strategy is particularly 
convenient in a compiler’s symbol ta- 
ble, where two symbols might have 
the same name but different scope. If 
colliding nodes are linked to the head 
of the list, they will shadow previous- 
ly declared nodes associated with the 
same name. 

The HASH_TAB and BUCKET struc- 
tures defined in hash.h are used to 
define the table. A HASH_TAB is the 
actual table. It looks like: 


typedef struct HASH_TAB_ 


BUCKET *table 


) 


int size : 
int numsyms ; 
HASH_TAB; 


The table field points at the actual ar- 
ray. This array is created with a mal- 
loc( ) call when maketab( ) is called. 
Size holds the number of elements in 
the table, as was passed to maketab( ). 
Numsyms is a count of the number of 
symbols currently in the table. It’s 
useful only for statistical purposes— 
the hash functions themselves don’t 
use it. 

Each element of the hash table ar- 
ray points at a BUCKET structure, de- 
fined in hash.h as: 


_———--+ + 


typedef struct element_ 


structelement— ‘next: 
structelement_ “prev; 
char snamel MAXNAME + 1]; 


} 


BUCKET; 


A BUCKET is actually a header, pre- 
fixed onto the top of a block of memo- 
ry used by the application program. 
This technique is used by malloc( ), 
and I used the same technique in the 
AVL tree routines a few months ago. 
Addsym( ) returns a pointer to the 
application area, just below the BUCK- 
ET. The BUCKETs themselves hold the 
symbol name and two pointers used 
to form a doubly linked list. 

The whole system of structures is 
shown in Code Example 1, below. 
The example shows a length 5 table 
with two symbols inserted into it. 
The symbols both hash to the same 
number, so a collision condition is 
shown. The hash table itself is an un- 
named array pointed to by the table 
field of the HASH_TAB structure. The 
array entry forms the head of a 
linked list, pointed to by the next 
fields in the various BUCKETs. The list 
is double-linked, which means that 
not only is there a pointer to the next 
node in the chain but also a pointer to 
the previous node is kept. This lets 
you remove a symbol from the list 
without having to chase down the 
entire list. All you need is a pointer to 
the actual node you wish to delete. 
Note that the prev pointer points not 
at an entire BUCKET structure but 
rather at the next field of the previous 
structure. This way, the leftmost 
node in the chain is not a special case. 
All backward pointing pointers point 
at objects of the same type—pointers 
to BUCKETs. Assuming that p is a 
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C Programmers! 


db_VISTA’: high-speed Database 
written exclusively for C 
NOW offers SQL-based Query 


“db VISTA™ has proved to be an all-round high performer in terms of fast execution. ..”’ 


H igh-speed data retrieval and access. .. 


just two benefits of using RAIMA's network 


model DBMS, db_ VISTA. Combine these 
benefits with those of C—speed, 
portability, efficiency, and you begin to 
understand db__VISTA’s real measure... 
performance. 


db_QUERY °: new simplicity 
retains performance! 
db QUERY, our new C-linkable, SQL- 

based, ad-hoc query and report writing 
facility ... provides a simple, relational view 
of db__VISTA’s complex network database. 
No longer will you give up performance for 
simplicity ... combine db_ QUERY with 
db_ VISTA... you have both! 


Independent Benchmark proves 
High-Speed model 2.76 times faster 


An independent developer bench- 
marked db_VISTA against a leading 
competitor. Eleven key retrieval tests were 
executed with sequentially and randomly 
created key files. 


*Result of 11 Key Retrieval Tests 


db_ VISTA :671.24 seconds 
Leading Competitor :1,856.43 seconds 


db_ VISTA's high-speed network database 
model lets you precisely define relation- 
ships to minimize redundant data. Only 
those functions necessary for operation are 
incorporated into the run-time program. 


Application Portability 
Complete Source Code 


For maximum application portability, 
every line of db__VISTA’s code is written in 
C and complete source code is available. 
db VISTA operates on most popular 
computers and operating systems. So 
whether you write applications for micros, 
minis, or mainframes...db__VISTA is for 
you. 


How db_ VISTA works... 


Design your database and compile your 
schema file with the database definition 
language processor. Develop application 
programs, making calls to db_VISTA's C 
functions. Edit and review your database 
using the Interactive Database Access 
utility. Compile and link your C program 
with the db_ VISTA run-time library, and 
your application is ready to run. 


Multi-user and LAN capability 


Information often needs to be shared. 
db_ VISTA has multi-user capability and 
supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX, MS-DOS, and 
VAX VMS. 


RYRAIMA 


CORPORATION 


High-Speed Programming Tools, 
Designed for Portability 
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Royalty-Free Run-Time 


Whether you’re developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA or db__ QUERY is the 
same. If you are currently paying royalties 
for a competitor’s database, consider 
switching to db__VISTA and say goodbye to 
royalties. 


FREE Technical Support 
For 60 days 
Raima’s software includes free telephone 
support and software updates for 60 days. 
Technical support personnel are available 
to answer questions about our software or 
yours. 


30-Day Money-Back Guarantee 


Try db_ VISTA for 30 days and if not fully 
satisfied, return it for a full refund. 


Price Schedule 
db_VISTA db_QUERY 


Single-user $ 195 $ 195 
| Single-user w/Source $ 495 $ 495 
Multi-user $ 495 $ 495 
Multi-user w/Source $ 990 $ 990 
NEW: 

VAX Multi-user $ 990 $ 990 


VAX Multi-user wSource $1980 $1980 


Call Toll-Free Today! 
1 (800) db-RAIMA 
(that’s 1-800-327-2462) 

---OR Call 1-206-828-4636 
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Read what others say... 


‘If you are looking for a sophisticated C 
programmer's database, db_ VISTA is it. It 
lets you easily build complex databases 
with many interconnected record types. 
Raima’s customer support and documen- 
tation is excellent. Source code availability 
and a royalty-free run-time is a big plus.”’ 

Dave Schmitt, President 
Lattice, Inc. 


‘‘My team has developed a sophisticated 
PC-based electronic mail application for 
resale to HP customers. db_ VISTA has 
proved to be an all-round high performer 
in terms of fast execution, flexibility and 
portability, and has undoubtedly saved us 

much time and development effort.’ 
John Adelus, Hewlett-Packard Ltd. 
Office Productivity Division 


‘‘On the whole, I have found db_VISTA 
easy to use, very fast with a key find, and 
powerful enough for any DBMS use I can 
imagine on a microcomputer’ 


Michael Wilson, Computer Language 


John Adelus, Hewlett-Packard Ltd./Office Productivity Division 





*The benchmark procedure was adapted from 
‘Benchmarking Database Systems: A Systematic 
Approach”’ by Bitton, DeWitt and Turbyfill, 
December 1983. 


Call Toll-Free Today! 
1 (800) db-RAIMA 


3055-112th Avenue N.E. « Bellevue, WA 98004 USA (206) 828-4636 Telex: 6503018237 MCI UW 


Circle no. 206 on reader service card. 
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pointer to a BUCKET that you want to 
delete, you can remove the BUCKET 
with: 


if( *(p-> prev) = p->next ) 
p->next->prev = p->prev 


The assignment in the if statement 
makes the next pointer of the previ- 
ous node point around the current 
node. The next line is executed only 
if there’s more than one node in the 
chain. In this case the prev field of the 
node that follows the one you want 
to delete is made to point at the next 
field of the node to the left of the one 
you want to delete. If the deleted 
node is at the head of the chain, the 
hash table array itself is modified. 

One final point worth mentioning 
is the hash algorithm itself. More pa- 
per than I care to think about has 
been wasted talking about “‘efficient’’ 
hash algorithms. I’ve always been 
suspicious of these fancy functions, 
especially the ones that use several 
multiplies and divides. It doesn’t 
seem that the inefficiencies inherent 
in the more complex algorithms can 
be countered by any better perform- 
ance in the collision resolution de- 
partment. How long can it take to 
chase down a linked list anyway? So 
being my own untrusting self, I tried 
out about 20 hash functions empiri- 
cally. I was not surprised to find that 
the fanciest functions were so slow as 
to be virtually useless. The three best 
algorithms I tried are shown in Table 
1, right. The first two are derived 
from the HashPJw function de- 
scribed in the “dragon” book.’ To my 
surprise, however, adding together 
the characters in the name is just 
about as good as HashPJw, and addi- 
tion is a lot faster than all that shift- 
ing, type conversion, and XORing. I 
used addition in my own hash func- 
tion. The keywords used in the test 
are names I extracted from various C 
programs in my own library. 


Binary to Roman Numerals 

Listing Five, page 60, shows itoascii( ), 
a fancy binary-to-integer conversion 
routine. Unlike itos( ), ecvt( ), and the 
like, itoascii( ) can convert to several 
formats, depending on the value of 
its second argument. The various for- 
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mats are listed in Table 2, page 97. 
The alphabetic output goes like: 


abc...yzaaabac...azbabb 
Oo). paced 3, 


It's useful if you’re making out- 
lines. The spelled out formats print: 


one 
two 
three 


thirteen 
fourteen 
fifteen 


twenty-one 
twenty-two 


two thousand, one hundred thirty- 
one 

two thousand, one hundred thirty- 
two 


4 110 entries in 127 element ha . 
= chain length: 8, max 2 min=3, deviation=2 


14 chains of length 7 
2 1 chains of length 15 
1 chains of or 20 


snc HASHPJW . 


| 1 chains of length 4 
| 14 chains of length 6 
| 16 chains of length 8 


HASHPJW 


oh = 0 "name ; a eco open) 
On” a “A & ( ((unsigned)(0) >> 4)) 
h=(h *(g >> WLEN— $))- oF 


sh table, 0 (0%) empty. 





3 chains of length 3 
7 chains of length 5 


5 chains of lero 4 
11 chains of length 6 
21 chains of length 8 
22 chains of length 10 

8 chains of length 12 

1 chains of length 14 

1 chains of length 17 


15 chains of length 9 © 
- 12 chains of length 1 
5 chains of length 13 © 


(h<< 4) + see ). 


111 Oc entries in oe 2ment hash table, 0 (0%) empty, 
/ Mean chain length: 9, max=26, min=1, deviation=3 





2 chains of length 1 

4 chains of length 3 
13 chains of length 5 7 
_ 12 chains of length 7 _ 


4 chains of length 2 
8 chains of length 4 
5 chains of length 6 
17 chains of length 8 
16 chains of len 





1 chain of length 19, 
1 chains of length 21 


= *name++ ) - 


t ons table, 0 (0%) empty. 


_ Mean chain ng :7,max= 16, min=2, deviation = 2 


1 chains of length 2 4 chains of length 3 





10 chains of length 10 
7 chains of length 12 
7 Chains of length 14 
1 chains of length 16 


16 chains of length 11 
4 chains of length 13 
1 chains of length 15 





Table 1: Performance of various hash functions 
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Roman numerals (i, ii, iii, iv, v, vi, 
Vii, viii, ix, . . .) are Somewhat limited. 
In particular, numbers larger than 
MMMMM can't be printed because an 
overscore would be required and 
most printers don't support overline, 
only underline. Also, because there’s 
no zero in the Roman counting sys- 
tem, an Arabic 0 is used if n is zero. 

The Arabic conversions are all done 
using sprintf( ), spelled formats are 
done by itoeng( ) (line 35), itoroman( ) 


the hundredths part of the table (the 
first ten entries). The line: 


cp = *(rp + (n/i)); 


computes a pointer to the correct 
string, where n is the current value of 
the number and / is the current mul- 
tiplier. It is 100 the first time through 


> f£ Ou tp it buffer */ 


the loop, 10 the second time, and 1 
the last time. The expression could 
also be written: 


cp = rp[n/i]J; 
N and i are then adjusted for the next 


iteration, and 10 is added to rp to 
make it point at the next part of the 


(line 128), and itoalpha( ) (line 202). Of 
these, itoeng( ) is the most straightfor- 
ward. The main problems have to do 
with getting the commas and hy- 
phens in the right place. The other 
two conversions are a little harder be- 
cause neither number system has a 
zero in it. Consequently, you can’t just 
modify a basic itoa( ) routine. Itoro- 
man( ) uses a lookup table to assemble 
the numerals. (See Code Example 2, 
page 98.) The Ms used for thousands 
are printed with a simple loop on 
lines 178 to 181 of Listing Five. The rest 
of the digits are printed by the for 
loop, also in Code Example 2. 

The outer loop executes at most 
three times. Rp starts out pointing to 


_ Transform Your Programs 
| | ‘ 
edward k ream with 


a CPP—C Preprocessor Plus 


Includes ALL features of the standard C preprocessor. 

© Define arbitrarily complex macros with #define command. 

e Include and nest files to any depth with #include command. 

e Include lines with #if, #ifdef and #ifndef commands. 

© Define multiple constants with #enum command. 

e Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or « are ignored.) 


Fast and flexible 2 

e 30 times faster than the Preprocessor published in Dr. Dobb’s 
Journal. 

¢ Can be used for any language, including assembler. 


e Can be used as a stand-alone macro/include processor. 
© Code can be used as the lexical analyzer for parsers or 
assemblers. 


Complete Sioeeanna na S SHEERS BesesseresisssS 
e You get complete SOURCE tandard C. 

e You get everything you need to use CPP immediately. 

e CPP is unconditionally guaranteed. If for any reason you are 


not satisfied with CPP, your money will be refunded promptly. 


Price: $95. , 

Enteleki, Inc. 

210 N. Bassett St., Room 101 

Madison, WI 53703 

Tele. (608) 258-7078 
TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68k) 
and the disk format (8 inch CP/M or the exact type of 5% inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 


in U.S. dollars drawn on a U.S. bank. Sorry, | do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 
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e of the following: 


Ouputioma: tits 


Lowercase Roman numerals — 
ppercase Roman numerals 


Spelled out in lowercase | 

Spelled out, first letter capitalized 

Arabic numerals in a 1-character wide 
cc rti—e™NC - 

_ Arabic numerals in a 2-character wide 

field, zeropadded — SCs 











Megamax C 


for the 


Atari ST 


"Don't even think about 
another C compiler” $2", 


and Introducing: 


Mac-to-GS C « 
Mac-to-GS Pascal 


Macintosh to Apple IIGS cross compilers. 
The fastest development systems for the IIGS. 


Megamax 


Development Systems 


Box 851521 ¢ Richardson, TX 75085 
(214) 987-4931 © Telex 5106018356 


Circle no. 352 on reader service card. 








97 


C CHEST 
(continued from page 97) 


table. The number is printed by the 
inner for loop. 

Itoalpha( ) is very atoi( )-like. The 
lack of a zero complicates things 
here, too. In particular, the alphabet- 
ic numbers aren't a simple base-26 
counting system. That is, if you mapa 
to 0, b to 1, c to 2, and so forth, the 
output series would look like: 


ative d..... ba.bb. be J. ea eboc 7. 
instead of: 
ab ed: aa ab ac is. ba bb be :.-. 


Changing the mapping by leaving 
out the 0 and mapping a to 1, b to 2, 
and so forth gives you: 


abcd. .'‘ax aaabac .).'>:-ba-.bb:be 


which is closer to the desired series, 
but now the zero causes problems, 
represented by the underscore in the 
strings (placed where the zero would 
go if you had one). Itoalpha(_ ) actually 
does the conversion with: 


do{ 


BRING YOUR 
HARD DISK 





BACK UP TO SPEED 


WITH 
H.D. TUNEUP! 


The harder you work, the more files you put on your hard disk, 
the faster DOS works to fragment those files. Fragmented files make 
you wait longer for file loads and saves. H.D. Tuneup rearranges 
the data on your hard disk for the fastest possible file i/o times. 


Your disk will speed along like new. 


*‘Much better than Disk Optimizer™ ”’ 
- Philadelphia, PA 


Requires IBM PC/XT/AT compatability, DOS 2.x or higher and at least 196K. Hard 
disks up to 32mb may be tuned, along with most 5.25’’ diskettes. 


ONLY $39.95 + $3.00 shipping (US/Canada) 


SofCap Inc. 
PO. Box 131 


Cedar Knolls, NJ 07927 
MasterCard 


If you want the absolute best possible performance from your hard disk: 


TUNE IT UP WITH H.D. TUNEUP 


Disk Optimizer is TM SoftLogic Solutions. H.D. Tuneup is TM SofCap. 


Visa (201) 386-5876 
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*ptt = (n% 26) + 

(uppercase ? ‘A’: a); 
}while( (n = (n/26)-1) >=0 ); 
Here p is a pointer to the output buff- 
er. Then % 26 selects the current digit 
in the expected way. You can't just 
divide by 26 to get the next digit be- 
cause of that 0, so you compensate for 
the 0 by dividing and then subtract- 
ing 1 from the result. This subtraction 


is done in the while part of the do 
... While statement. 


Expression Analysis 

An arithmetic expression analyzer, 
along with a discussion of the under- 
lying theory, was published in the 
September 1985 C Chest. That analyz- 
er had several problems that I knew 
about at the time but ignored in order 
to make the grammar more intuitive- 
ly obvious. A real application, how- 










| static char *rnums [ 7 


eo". FCCC? 













oo "cc*. "Cp" ; 
“oe, tsi«é "pce", rpecc®, cM". 
am “xT HEKM "XXX", "XL", 
“Lo, “LK! PLXK" | PLXSe" |= XC7 
non “TH err" | “tti*, = iV" 
nye "Vr", MVIT", Ix" 


wVIIE" | : 
a 

_ Fp=rnums; — 
for( i= 10*10;:n)0 &6& i)=1:i/7=10) 





RS Aiep Ff 5); 
mRE=— i; 
rp 7 10: 
for(; *cp sept t+) : 
*dest+ + — (Gppercase) ? *cp: tcp = ('a'— A‘) ; 
4 — — 





Code Example 2: Lookup table used by itoroman{ ) 


DeSmet C 
execution profiler included 


still $109 


The professional's choice for fast compilation and execution. 
Includes Compiler, Assembler, Binder, Librarian, and Full 
Screen Editor (SEE'™). Execution Profiler reports by 
address, procedure name or line number. Supports both disk 
and memory resident Overlays. Contains both 8087 and 
Software floating point support. Full STDIO library. 


With D88 Debugger Option 


Gain most of the benefits of an interpreter while losing none of 
the run-time speed of the C88 compiler. Display C source and 
variable contents during execution. Set breakpoints by function 
name or line number. Examine and set variables by name using 
C expressions. 


With Large Case Option and D88 ...$209 


Makes a great C Compiler even better. Adds 32-Bit Pointers to 
C88 so you can utilize all of your PC. Groups scalar and static 
data for fast access. 





‘DeSmet C Compiler’ 
















“D88 & Large Case Options available as add-ons. 







C Ware Corporation 
505 W. Olive, Suite 767, Sunnyvale, CA 94086 U.S.A. 
(408) 720-9696 — Telex: 358185 
We accept VISA, MasterCard & American Express 
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~ Tomorrow morning» 
= could be speaking 
— Seven different 
languages. 


















Our family of true compilers will have your 680X0 
_ _Unix-based computer speaking COBOL, C, PASCAL, 
RPG II, PL/I, BASIC, and FORTRAN in the morning. 
Not only can your customers take advantage of the power 
of your new systems, but they can do it without sacrificing 
their present software investment because we conform to ANSI 
and industry standards. And now we're 80386 compatible too. 
Think of the markets this will open up for you. All for less than 
developing just one compiler yourself. 
There’s a lot more you should find out, so do it now. 
We'll put you on speaking terms with the world. 
Language Processors, Inc., 400-1 Totten Pond Road, 
Waltham, MA 02154, (617) 890-1155. 


THE LANGUAGE SOURCE 


___LPlis a trademark of Language Processors, Inc. 
__ Unix is a trademark of AT&T. 
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CHEST 
(continued from page 98) 


ever, needs a more realistic expres- 
sion analyzer. One is presented here 
in Listing Six, page 64. If you don't 
know what a formal grammar is or 
how a recursive descent parser 
works, you should either go back and 
read the previous C Chest or look at 
my book The C Companion.® 
The analyzer is called with: 


VTYPE  parse( expr_p ) 
char" exprp; 


VTYPE is currently defined to double, 
but you can change it to any type 
that’s convenient and recompile if 
you wish. Changing to an integral 
type will make the program smaller. 
Expr_p is a pointer to a string point- 
er. The string itself holds the expres- 
sion to analyze. The expression is 
parsed, “expr_p is adjusted to point 
past the parsed string, and the result 
of the expression evaluation is re- 
turned. Evaluation terminates when 
the first character that can’t be part 
of an expression is encountered. 
Expressions are composed of: 


spaces—All white space is ignored. 


numbers—If VTYPE is a floating-point 
type (float or double), then numbers 
with decimal points are permitted; 
otherwise, a period is an illegal char- 
acter and should be shunned. 


operators—Several operators are 
supported, as shown in Table 3, right. 
Operators on higher lines have high- 
er precedence. They all associate left 
to right and evaluate as in C. Unlike C, 
evaluation of && and // does not ter- 
minate when the truth or falsity of 
the expression can be determined. 
The minus sign on the top line is una- 
ry minus; the one on line 3 is binary 
minus. The str1‘str2’ operator works 
just like strcmp/(str1,str2) does. Paren- 
theses are for grouping rather than 
for subroutine calls. 


The grammar used is shown on 
lines 27 to 56 of Listing Six. It is a clas- 
sic LL) expression grammar. For the 
most part, the subroutines follow the 
productions quite closely. Note that 
I've merged several productions into 
a single subroutine when possible. 
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An example of this merging is shown 
in Code Example 3, below. A descrip- 
tion of the merging process is in The 
C Companion, cited earlier. 


Notes 

1. A note on nomenclature. The two 
Unix text formatters, nroff and troff, 
are almost identical. The main differ- 
ences have to do with commands 
that are unique in typesetting (point 
changes and so on) as compared to 
simple text formatting. Nr imple- 
ments all of nroff, but the implemen- 
tation of the troff features is spotty. 
For simplicity’s sake, I'll say nroff 
throughout, even if I’m talking about 
what is really a feature of troff. 

2. Brian Kernighan and P. J. Plauger, 
Software Tools in Pascal (Reading, 
Mass.: Addison-Wesley, 1981). 

3. I’m using a version of the Unix vi 
editor called PC/VI. It’s $149 from Cus- 
tom Software Systems, P.O. Box 678, 
Natick, MA 01760, and I recommend 
it highly if you're a vi addict like me. 
PC/VI is a solid and very complete im- 
plementation of vi for MS-DOS. 


* / % _  . 
- 





&& 


The productio | 

(fact )::= (part) (fact) 

(facti) :-=— 4+ (part) (fact) 
::= — (part) (fact 1) 
i:= epsilon 


can be implemented as: / 





left = part(); 
£Or(::) 


it ( matcht(" +") > 


Table 3: Operators supported by parse ) 


4. Hash algorithms are discussed in 
greater depth by Robert Kruse, Data 
Structures and Program Design (En- 
glewood Cliffs, N.J.: Prentice-Hall, 
1984), pages 112—128, and also by 
Aaron Tenenbaum and Moshe Au- 
genstein, Data Structures Using Pas- 
cal, 2d ed. (Englewood Cliffs, N.J.: 
Prentice-Hall, 1986), pages 521—573. 
Both these books are very good. The 
examples, all in nicely done Pascal, 
are informative and useful. 

5. Aho, Sethi, and Ullman, Compilers: 
Principles, Techniques, and Tools 
(Reading, Mass.: Addison-Wesley, 
1986), 436. 

6. Allen I. Holub, The C Companion 
(Englewood Cliffs, N.J.: Prentice-Hall, 
1987), 189—211. The descriptions in 
the Companion are a bit better than 
those in the original C Chest articles. 


DDJ 
(Listings begin on page 52.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 5. 





{advance(1); left += part():} 


else if( match("—") ) { advance ( 1); left —= part();:} 


else break: 


} 


return left: 





Code Example 3: Merging two productions into a single subroutine 
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ACTOR WILL DO WINDOWS. 


If you've been wondering how you're going to explore Microsoft® Windows and then 
work it into your programs, what you need has just arrived. 


ACTOR™ 


ACTOR is a new programming system, and there are two reasons why it’s so good 


with Windows. 


First, ACTOR is an ideal programming environment. It shows you all your work through 


A New Programming System 9g 





ACTOR" is a new, interactive pro- 
gramming system, the first with Mic- 
rosoft® Windows. You have Windows 
when you write a program, and users 
have Windows when they run it. 





Thanks to a new method of “in- 
cremental garbage collection,’ ACTOR 
never has to slow down to clean up 
memory like other advanced languages. 
You can even use it for real-time con- 
trol. It’s that fast. 


Moreover, ACTOR is a new, object- 
oriented programming language. Wind- 
ing objects up and turning them loose 
is alot easier, more productive, and more 
fun than old fashioned programming. 





ACTOR offers all the features of 
an ideal artificial intelligence language, 
but in a familiar, Pascal-style syntax. 
Which makes artificial intelligence pro- 
gramming easier. And what could be 
smarter than that? 


Windows. Any part of the pro- 
gram you re writing, its output 
as it runs, error diagnostics and 
tracing, catalogs of routines, and, 
in fact, just about anything you 
like — they can all be visible on 
the screen and accessible at the 
same time, in their own windows. 

So it’s easier to see what 
you re doing. 

Second, ACTOR is an 
object-oriented programming 
language. Everything in an 
ACTOR program is a self-con- 
tained package with its own 
data and procedures. That is, 
an object. And the objects pass 
messages to each other while 
the program runs. 

With ACTOR, you don't 
write lists of instructions. 
Instead, you define what classes 
of objects do. Which is especially 
easy because they inherit most 
of their behavior from other 
classes. That means there's less 
for you to worry about. 

And when you create an 
object, you just choose its name 
and starting values. After that it 
pretty much takes care of itself. 

What's important here is 


that windows are objects like everything else in the language. You make as many as you need, 
and they do what they’re supposed to, mostly on their own. 

So it’s natural and easy to put windows in your application programs. And users will 
benefit from Windows when your programs run, as much as you do when you write them. 

To order, just send in the coupon. Or call 312-491-2370 for more information. 
You'll see that ACTOR will do Windows, and more. 


Please send me more information about ACTOR. 


Name 


Address 





City State Zip 
Daytime phone 
1 Check or money order enclosed. 0 Bill my VISA. 0 Bill my MasterCard. 


Exp. date 


Card number 





1 I'd like to place an order while I'm at it. (ACTOR is not copy 
protected and has a 60-day money back guarantee. Educational 
pricing is available. ACTOR requires an IBM PC/XT or AT or 
equivalent. 640K and hard disk is recommended.) 


1] ___ copies of ACTOR with Windows runtime support 
at $495 each. 


1 ___ copies of ACTOR, including Windows com- 


plete with MS-DOS Executive, at $550 each. S 
@ Please add $5 for shipping within the US., 

$30 overseas. S 
@ Total. S 


The Whitewater Group 


Technology Innovation Center 
906 University Place, Evanston, IL 60201 
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COLUMNS 


Resources for MS-DOS 
Programmers 

ourdain, Robert. Programmer's 

Problem Solver for the IBM PC, XT, 
and AT. New York: Brady Communi- 
cations, 1986. 473 pages with index. 
$22.95. ISBN 0-89303-787-7 

Topics covered include determin- 

ing the system configuration; manag- 
ing interrupts; memory allocation; 
reading and setting timers; control- 
ling video adapters; creating tones; 
controlling the keyboard interface, 
printer, and serial port; reading and 
writing disks; and device drivers. For 
the most part, each topic is accompa- 
nied by three example program list- 
ings: a high-level routine in BASIC, an 
intermediate-level routine in assem- 
bly language that calls the operating 
system or ROM BIOS, and a low-level 
routine in assembly language that ac- 
cesses the hardware directly. Almost 
anything you can imagine wanting to 
do to, with, or on an IBM PC can be 
found in this book, including reading 
and writing files to a cassette record- 
er! But the book is not a tutorial and 
will be most useful in combination 
with a book such as The Peter Norton 
Programmer's Guide to the IBM PC, 
Angermeyer and Jaeger’s MS-DOS De- 
veloper’s Guide, or my own Ad- 
vanced MS-DOS (yes, that was a plug). 


Rollins, Dan. IBM-PC 8088 Macro As- 


by Ray Duncan 


sembler Programming. New York: 
Macmillan, 1985. 435 pages with in- 
dex. $25.50. ISBN 0-02-403210-7 

A very nice primer on 8086/88 as- 
sembly language, starting at the most 
elementary level but progressing to 
advanced topics such as structures, 
macros, and conditional assembly. It 
has a brief section on file and record 
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operations under MS-DOS, but this 
only covers the now-obsolete file 
control block functions. The book 
ends with a detailed discussion of 
programming for the IBM PC video in- 
terface, including graphics modes, 
that is helpful and practical. 


Sargent, Murray, III, and Shoemaker, 
Richard L. The IBM PC from the Inside 
Out. rev. ed. Reading, Mass.: Addison- 
Wesley, 1986. 483 pages including in- 
dex. $19.95. ISBN 0-201-06918-0 

This book covers a wide range of 
topics and is the only MS-DOS book I 
know of that is directed at the hard- 
ware hacker. The PC system bus, pe- 
ripheral chips, and controllers are 
discussed in great detail with many 
programming examples, and the 
book winds up with a chapter on 
how to breadboard your own inter- 
faces. It’s a real pity that Addison- 
Wesley didn’t see fit to invest in de- 
cent production for this book, 
especially as it was popular enough 
to warrant a second edition; instead, 
the book was offset from camera- 
ready copy prepared on a daisy- 
Wheel printer with a particularly 
crowded and tiring sans serif font. 


King, Richard Allen. The MS-DOS 
Handbook. 2d ed. Berkeley, Calif.: Sy- 
bex Inc., 1986. 338 pages including in- 
dex. $19.95. ISBN 0-89588-352-X 

I discussed the first edition of this 
book in my May 1986 column. The 
second edition covers essentially the 
same ground but has some additional 
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material on networking and MS-DOS, 
Version 3. Incidentally, previously I 
commented that this book “jumbled 
together’ material about MS-DOS and 
PC-DOS “‘with very little distinction.” 
In a letter that accompanied the sec- 
ond edition, Mr. King said, ‘“You are 
right, . . . [but] my claim is that it does 
not matter, and few people make the 
distinction anyway.” The year that 
has passed since I originally wrote 
those carping words has vindicated 
Mr. King. The incredible domination 
of the marketplace by the IBM PC ar- 
chitecture has made any distinction 
between generic MS-DOS and IBM ver- 
sions of MS-DOS a moot point. 


DeVoney, Chris. Using PC-DOS. India- 
napolis, Ind.: Que Corp., 1986. 519 
pages including index. $21.95. ISBN 0- 
88022-170-4 

This is not a programming book 
but is a superuser manual to PC-DOS 
that eclipses all other such books, in- 
cluding all the Microsoft and IBM 
manuals. The last section of the book 
is a thorough, alphabetical reference 
to PC-DOS commands, including ver- 
sion dependency information and a 
detailed list of error messages. 


The MS-DOS STACK 
Command 

People who have switched from ear- 
lier versions of MS-DOS to Version 3.2 
have sometimes been surprised to 
find that previously healthy soft- 
ware caused the system to halt with 
the mysterious message ‘‘Internal 
Stack Error.”’ 

It turns out that the boys from Boca 
got concerned because when net- 
work cards were active a great many 
interrupts could occur in rapid suc- 
cession, Causing a program’s stack to 
overflow with consequent unpre- 
dictable damage to the system. They 
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therefore instigated a new scheme in 
MS-DOS 3.2 such that when an inter- 
rupt occurs, the system automatical- 
ly switches to a stack allocated from 
an internal pool before passing con- 
trol to the handler. When the inter- 
rupt service is complete, the stack is 
released back to the pool. When suffi- 
cient interrupts occur in a brief peri- 
od and are all simultaneously in vari- 
ous stages of processing, the stack 
pool can be exhausted and the sys- 
tem halts with the previously men- 
tioned error message. 

The number and size of stacks in 
the internal pool can be controlled at 
system initialization time by adding 
the new MS-DOS 3.2 STACKS=n,s com- 
mand to the CONFIG:.SYS file, where n 
is the number of stack frames (8— 64, 
with a default of 9) and s is the size (in 
bytes) of each stack frame (32—512, 
with a default of 128). 

Remember that this ‘feature’ was 
specifically added to IBM's version of 
MS-DOS and may or not be present (or 
documented) in other OEM versions 
of MS-DOS. 


Boyer-Moore Algorithm 
Heartfelt thanks to all the readers 
who wrote in with comments, expla- 
nations, and improvements on the 
Boyer-Moore routine published in 
the October 1986 16-Bit Software 
Toolbox column. By an interesting 
coincidence, the November 1986 is- 
sue of Computer Language carried a 
lengthy article on the same subject. 
Frankly, I am still digesting that opus 
and all the feedback I got on the sub- 
ject from DDJ readers, so I will defer a 
resumption of this discussion until 
the future. 


TSRs and File I/O 
Terry Flanagan, of GSD Development 
Corp., Chicago, Illinois, responded 
with the following letter to Gary 
Cramblitt’s appeal, printed in the 
September 1986 16-Bit Toolbox col- 
umn, for help with Terminate and 
Stay Resident utilities: “The problem 
is, as Gary mentioned, that MS-DOS is 
not reentrant. It is a single-user oper- 
ating system, and as such, reentrancy 
is not a requirement. This situation 
severely limits the processing that 
can be performed by a memory-resi- 
dent program, however. 

“The problem has been resolved to 
some extent by various software com- 
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panies that have developed memory- 
resident utilities. There are still con- 
flicts between these various utilities, 
and there is still no officially sanc- 
tioned method for providing compati- 
bility between memory-resident pro- 
grams. A multitasking version of MS- 
DOS will probably appear before a TSR 
standard is adopted. During the inter- 
im, developers of memory-resident 
programs are on their own. 

“There are several methods I've 
read about and/or experimented 
with to determine when MS-DOS is 
‘safe.’ One method, which Gary men- 
tioned in his letter, is the DOS Critical 
Flag. This is a byte within the DOS code 
segment that is incremented upon en- 
try to the DOS function dispatcher (int 
21h) for any potentially ‘unsafe’ func- 
tion calls and decremented upon exit. 
The function that returns the address 
of that flag is int 21h, function 34h. The 
DOS Critical Flag, therefore, is a count- 
er that indicates the number of DOS 
calls in progress. Normally, this count- 
er never exceeds 1. So it is theoretical- 
ly safe to call DOS whenever this 
counter is 0. Unfortunately this is not 
usually the case. 

“Certain DOS calls are relatively 
safe to interrupt. These are the char- 
acter I/O calls (int 21h, functions 1 


through Och). DOS normally resets its 


own internal stack for each function 
call. If a character I/O call has been 
iiterrupted, however, as indicated 
by an internal flag, then DOS will ad- 
just the stack pointer upward so as 
not to collide with the stack of the 
character I/O call in progress. The 
problem is how to determine when 
character I/O is in progress. 
“Borland’s SideKick is a pioneer in 
this area. Borland decided to play it 
safe by letting SideKick run off with 
as many interrupt vectors as it could 
carry. This is typical of many memo- 
ry-resident utilities and results in the 
utilities stealing vectors from one an- 
other and causing further confusion. 
SideKick even uses the timer tick to 
steal back the interrupt vectors. 
(Sooner or later someone will just re- 
program the 8259 to hide the real in- 
terrupt vectors from everyone else 
and really mess things up.) 
“Anyway, one of the vectors that 
SideKick ‘borrows’ is the DOS func- 
tion dispatcher (int 21h). By intercept- 
ing the DOS calls the program can de- 
termine when it is safe to call DOS 


from the memory-resident code. The 
program can also block access to DOS 
or reschedule DOS calls if desired. 

“Another method for determining 
when DOS calls are safe involves int 
28h. I’ve read that this interrupt oc- 
curs while COMMAND.COM is waiting 
for keyboard input and DOS is basical- 
ly in an idle state. The DOS back- 
ground print processor supposedly 
uses this interrupt to perform print 
operations. 

‘From what I've seen, this interrupt 
is called from DOS prior to nondestruc- 
tive reads to the console to check for 
things such as Control-C. This would 
normally occur during character I/O 
calls. Prior to calling int 28h, DOS 
pushes a byte flag on the stack (really 
a word, but only the low-order byte 
matters) that indicates whether a 
‘safe’ character I/O call is in progress 
or not. This byte contains a 1 if the call 
is safe; otherwise it is 0. So it would 
seem that if the DOS Critical Flag is 0 or 
the Critical Flag is 1 and the byte 
pushed before the int 28h call is 1, 
then it would be safe to call DOS. I'm 
not sure I would even want to think 
about what happens when a ‘critical 
error’ occurs on a DOS call that inter- 
rupts a character I/O call, though. 

“In addition to determining wheth- 
er DOS is safe or not, a memory-resi- 


dent program must be reactivated 


somehow. Most of the currently 
available utilities use the concept of a 
‘hot key’ to trigger program process- 
ing. The hot key can be detected by 
monitoring keyboard input through 
the hardware interrupt (int 9) and/or 
through the keyboard BIOS driver in- 
terrupt vector (int 16h). Some pro- 
grams use a combination of these 
methods. Some utilities also use the 
timer interrupt (int 8) to monitor the 
state of the keyboard shift flags if the 
hot key involves a shift-key combina- 
tion. 

“Once the hot key is detected, the 
program can wait for DOS to become 
safe. This usually involves setting 
flags and then using the timer inter- 
rupt to trigger hot-key processing, al- 
though there are numerous possibili- 
ties here. For Gary’s screen dump it 
would probably be advisable to save 
the screen in memory when the hot 
key is detected, then dump it as soon 
as DOS is safe. 

“One other point that may be 
worth mentioning deals with the PSP 
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16-BIT 
(continued from page 103) 


(program segment prefix). The PSP is 
used to store things such as the envi- 
ronment pointer, command tail, file 
handles, caller’s stack pointer during 
DOS calls, and so on. It is also the DOS 
equivalent of a process ID (PID). When 
a memory-resident program is reacti- 
vated, DOS is still assuming the PSP of 
the currently executing program. 
Therefore it is advisable to switch to 
the PSP of the memory-resident pro- 
gram [to ensure that MS-DOS is look- 
ing at the correct table of file handles if 
the memory-resident program needs 
to perform file I/O—Ray). At installa- 
tion time, the TSR should use the DOS 
function call 62h (MS-DOS 3.0 and later) 
to obtain its PSP address and store it for 
future reference (versions of DOS pri- 
or to 3.0 should use the undocument- 
ed function 51h to do the same). When 
the memory-resident program is re- 
activated, it should use another un- 
documented function (50h) to change 
the PSP and restore it before exiting. 
These are safe, if undocumented, DOS 
calls. 


“There are no guarantees for any 
of these methods, especially those in- 
volving undocumented DOS calls 
(why does Microsoft keep these a se- 
cret anyhow?). I hope that some sort 
of standard for TSR programs will be 
developed and that these mysteries 
will be solved in the near future. ”’ 

It is true, as Terry notes, that the 
MS-DOS calls he mentions are undocu- 
mented and therefore not officially 
supported. It is my feeling, however, 
that it is quite safe to use these calls in 


Call With 
ah = 34h 


/MS-DOSCah  ~—Cx 

_ jnt 21h, function 34h* | 

- Get DOS Critical Flag 
address 


int 21h, function 50h 
| Set current PSP 

- int 21h, function 51h ** 
_ Get current PSP 


ah = 50h 


ah =5ih 


MS-DOS, Versions 2 and 3, because 
these versions of the operating sys- 
tem seem to be quite stable and it 
does not appear that DOS 4 will ever 
be released for 8086/88 machines in 
the United States. The calling se- 
quences for these MS-DOS functions 
are in Table 1, below. 

On the subject of conflicting Termi- 
nate and Stay Resident utilities, there 
was a great flurry of press releases 
about a year ago to the effect that Mi- 
crosoft, Borland, and other worthies 


Returns 
OS.DX = 
address of DOS critical flag 


nothing 


bx = PSP (segment) address 


bx = PSP (segment) address 2 


* Interestingly, function 34h is documented in the Heath/Zenith Version 2 Programmer's Utility Pack manual but is absent 
from all other OEM editions of the MS-DOS Programmer's Reference. 


_ **Apparently identical to int 21h, function 62h in MS-DOS 3.0 and later (so why give it another function number, rather 
than just document function 51h? Another MS-DOS mystery . . . .) 


Table 1: Undocumented MS-DOS calls 34h, 50h, and 51h 
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1416 4.7125 6.28635 


scientific Endeavors Corporation 


Route 4, Box 78 Kingston, TN 37763 





Circle no. 210 on reader service card. 


104 


(615) 376-4146 


The solution to your 
micro/mainframe 





9-Track Tape Subsystem 
for the IBM P@FXT/AT 











MINISTREAMER™ brings full ANSI data interchange capability 
to the PC. Now you can exchange data files with virtually any 
other computer using 9-track tape. 


Available in both 7” and 10 1%” versions, the MINISTREAMER 
uses less desk space than an ordinary sheet of paper, yet provides 
full 1600/3200 BPI capability at an affordable price. Up to 134 
megabytes of data (depending on format) can be stored ona 
standard 10 12” reel of tape, thus making the MINISTREAMER 


a highly-reliable answer to your backup requirements as well. 


Tape subsystem includes tape drive, full-slot coupler card, 
cables, dust-cover and MS-DOS or XENIX compatible software. 


Discover the many advantages 
9-track tape has over other 
Micro/Mainframe links. 


Call us today! 


[JUALS TAR, 


9015 Eton Avenue, 
Canoga Park, CA 91304 
Telephone: (818) 882-5822 


Circle no. 356 on reader service card. 


Dr. Dobb’s Journal, February 1987 





were going to work out and cospon- 
sor a TSR specification that would 
solve these problems forever. No 
word of progress on this document 
has been forthcoming for the last six 
months, however, and it appears to 
have died the lingering and painful 
death of neglect. The torch has been 
taken up by a small committee that 
includes Chip Rabinowitz, Chris Dun- 
ford, Jim Kyle, Neil Rubenking, and 
Lane Ferris, who have been develop- 

















0104 0000 dw 
0106 0000 dw 





test endp 
cseg ends 
end 


0108 





para public 


| oooe—r”—‘“=#é _ eseg segment 
“Bieo org 100h_ 
0100 «test proc near 
= _ +~=SsCvest _equ equ 
= 0000 test_equals = 
01000000 | dw 
0102 0002 dw 


Code Example 1: The difference between MASM'’s equ and = operators 


ing a public-domain protocol for TSRs 
called Ringmaster. The Ringmaster 
effort has been quietly gathering sup- 
port and seems likely to have become 
the de facto standard by the time you 
read this. 


Removing Extra EOF 
Characters 

Robert Seabock, of Tamal, California, 
wrote: ‘Concerning your report [Sep- 
tember 1986] of that bizarre bug in 


cs:cseg,ds: 





off set ($) - offset test 
of f set ($) -— off set test 


test_equ 
test_equ 


test_equals 





test 
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Version 4 of the Microsoft Macro As- 
sembler [where extra EOF characters 
cause problems in include files] and 
Microsoft's suggested ‘fix’: For those 
people (myself included) who would 
rather pick up a skin rash than a copy 
of EDLIN, the easiest way to remove 
EOF characters from the end of a text 
file is to use the MS-DOS TYPE com- 
mand, redirecting output to a file. For 
example: 


TYPE myfile > temp 
DEL myfile 
REN temp myfile 


would do the job quite nicely.” 

Thanks Robert, you are right. But 
to my chagrin, Robert Thrun of Adel- 
phi, Maryland, pointed out that there 
is an even easier way to strip off 
those nasty extra EOF characters, to 
wit: 


COPY myfile /A newfile 


The /A (for ASCII switch is present in 
the COPY command just for this type 
of problem! It copies a file only up 
until the first EOF mark, then stops. 


MasterCard and VISA welcome. 
Please add $3.00 Shipping and Handling. 
Calif. residents please add 6% sales tax. 
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16-BIT 
(continued from page 105) 


Macro Assembler Equates 


Microsoft MASM’s equ and = opera- 
tors are used to associate a value or 
address with a name and facilitate 
the creation of readable, well-docu- 
mented, maintainable assembler 
code. There is a subtle distinction be- 
tween these two operators that is not 
obvious from the manual but that can 
nail you at unexpected times! The dif- 
ference is that equ basically creates a 
text macro, whereas the = operator 
is evaluated when it is encountered 
and assigns an absolute value to a 
symbol. This distinction is perhaps 
best illustrated by a simple example. 
(See Code Example 1, page 105.) 

In this example, I've assigned the 
expression offset ($) — offset test to 
two different labels created with equ 
and =. As you can see, the symbol 
test_equ created with equ is evaluat- 
ed when it is invoked, in this case re- 
sulting in a different value each time 
it is used. The symbol test_equals cre- 
ated with = is evidently evaluated at 
the time it is declared, so it has a con- 
stant value. 


Lay Down Your Pencils 
Hans Pufal’s pop quiz in the Septem- 
ber 1986 16-Bit Software Toolbox un- 
fortunately went somewhat awry 
because of my own bad eyes and er- 
rant typing. Hans’ original code was 
correct, but a typo in the printed list- 
ing led a number of readers to send 
comments along the lines of ‘‘the 
code doesn’t do what its author 
thinks it does.”’ 

The real answer is that the little 
routine converts a hexadecimal nyb- 
ble in register al to its ASCII character 
equivalent, leaving the result in al. 
The corrected code appears in Code 
Example 2, below. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 6. 


al,40h 





Code Example 2: Corrected code | 
for Hans Pufal’s pop quiz 
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ARTIFICIAL INTELLIGENCE 


What Progress Is Being Made in AI? 


s this is the first of the monthly 
A columns I will be writing on ar- 
tificial intelligence, it seemed that a 
good way to begin would be to give a 
progress report on the state of the art 
in AI. Much of what I will report of a 
factual nature is based on a close 
monitoring of the newest develop- 
ments in the field, especially as dem- 
onstrated at the main AI conferences 
of the last few years—the Interna- 
tional Joint Conference on Artificial 
Intelligence (IJCAD in Los Angeles in 
1985 and the AAAI conference in Phil- 
adelphia in August 1986. Unless oth- 
erwise stated, of course, the opinions 
and extrapolations are solely my 
own. 

It may well be true that AlIstill has a 
long way to go to overtake all the 
hype, but if you have been watching 
closely over the last two years or so, 
you may have noticed that the field 
has been making some interesting 
progress each year. At the 1986 AAAI 
conference, for example, there was a 
noticeable presence of some serious 
AI applications, not just more and 
better tools. The main mood of the 
field at this time seems to be that of 
proving its usefulness in as many le- 
gitimate areas as it can. Some power- 
ful development tools have been 
available commercially for a few 
years, and an impressive and diverse 
array of applications has begun to 
appear. 

Many programmers recognize in- 
stinctively that they can learn some- 
thing from AI that will make them 


by Ernest R. Tello 


better programmers, even if they are 
not planning to do work specifically 
in the AI field. One common miscon- 
ception, though, is that the most they 
can learn is some new techniques to 
add to their arsenal of programming 
devices. AI has much more to offer 
than this. You will be hearing a lot 
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about programming paradigms both 
in my monthly column here and 
elsewhere, so this is a good time to 
explain the difference between pro- 
gramming techniques and program- 
ming paradigms. 

One thing all people in AI agree 
about, regardless of how vehemently 
they may disagree on other matters, 
is that we still do not know how to 
program computers very well— 
there are many things still to be 
learned that can greatly improve our 
programming. Another thing that is 
generally agreed upon among peo- 
ple in the AI field is that nearly all 
conventional programming comes 
under one major paradigm, namely 
that of procedural programming. 
Once this is pointed out, it is almost 
unnecessary to dwell on the fact that 
for most programmers designing a 
program simply involves planning 
procedures for the computer to exe- 
cute. As things stand now, though, 
procedural programming is just one 
of many paradigms at the disposal of 
Al programmers. 

The object-oriented paradigm rep- 
resents another approach entirely. 
Arising originally through AI re- 
search, and currently one of the most 
popular of all the paradigms in AI, it 
is just now penetrating the commer- 
cial programming market. The rule- 
based programming paradigm has 
also entered the commercial main- 
stream, mainly through its successful 
use in the hot field of expert system 
technology. The logic programming 
paradigm as well as the declarative 
and rule-based programming para- 
digms were all combined to create 


the powerful new programming lan- 
guage PROLOG, another recent new- 
comer. Other less-known program- 
ming paradigms that have also 
originated in AI research include 
constraint propagation, access-ori- 
ented programming, the actor para- 
digm, the neural network paradigm, 
and various parallel and distributed 
programming paradigms such as the 
connectionist and data-flow ap- 
proaches. As you can see, the field of 
AI today is large and complex, but 
some clear trends show a definite 
unity amid the diversity. 

Another good thing for program- 
mers to know is that there are several 
clear indications that, for better or 
worse, the goals of AI are on the 
verge of undergoing a paradigm 
shift. According to Mark Stefik at Xe- 
rox PARC, AI is now in the process of 
becoming the latest vehicle for the 
development and proliferation of a 
new form of “knowledge media.”’ 
Knowledge media, according to Ste- 
fik, embrace not only the representa- 
tion and storage of knowledge but 
also its transmission throughout soci- 
ety. At this point, at least, Al systems 
are not a major medium for the trans- 
mission of knowledge. As AI technol- 
ogy matures, though, Stefik argues 
that it will increasingly take on this 
role as a carrier and transmitter. 

It is obvious that AI systems already 
differ from most other knowledge 
media such as books, diagrams, and 
films in that they are not entirely fro- 
zen and inert. The knowledge in an 
AI system is dynamic and can be exe- 
cuted for solving problems in a more 
flexible way than is possible with 
any other knowledge medium. In 
this respect, it already resembles hu- 
mans. But, so far, the ways in which 
AI systems can use knowledge to 
solve problems is still extremely lim- 
ited as compared with humans. 

Has AI given up on the quest to cre- 
ate machine intelligence as an arti- 
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Over 400 Primitives, a C Interface, and Optional Runtime System 
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combine C functions with LISP programs. 

Take advantage of AI technologies to make 
your programs smarter and more flexible. 


Extensive Development 
Environment 
Over 400 Primitives 


TransLISP PLUS provides you with over 400 
primitives for development, including extras 
for hardware support and operating system 
access. Their spectrum ranges from control 
constructs, macros, and special forms, to 
multi-dimensional arrays, reader support for 
binary, octal, and hex constants, improved 
list processing, and system interrupts. 

DOS commands and applications can be 
invoked from within TransLISP PLUS, as 
can the fast editor. Of course, you can use 
your own editor if you like. 

A variety of debugging tools are provided. 
The trace facility tracks the evaluation of any 
built-in or user-defined function or macro. 

Traceback, Break, Cross Reference, and 
Pretty Printer are also provided to help you 
spot problems. 
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C Language Interface 


The best of both worlds. The interface to 
Microsoft C gives you a powerful extension 
to TransLISP PLUS — now you can write code 
in LISP and C. And you don’t need an AT, 
it will run on your PC! 

The C Interface makes it practical for you 
to write a C program and add it as a new func- 
tion to TransLISP PLUS. Your function can: 

* extend and/or change the LISP syntax 
* be an entire system of programs 

Create your own BUILT-IN primitives which 
are directly tied to the system and called at 
full speed by the interpreter. Extend the 
functionality of your program by including 
features of your own like macros, functions, 
and special forms. 

Code from C libraries produced by other ven- 
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Once you own TransLISP PLUS, you may 
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Don’t Know LISP? 


Get a solid understanding of LISP with the 
comprehensive, easy-to-understand tutorial. 
Each section walks you through a new concept 
and reinforces it with examples — both text 
and online. 

Over 30 demo programs supplement the tuto- 
rial. Use them for an in-depth introduction 
to LISP programming techniques. Commented 
source is included so you can see how and 
why the program operates. 

The demos cover a wide variety of applica- 
tions including: Select a word processor, Read 
dBASE SDF files, Job Counselor, and many, 
many more. 


The Fundamentals 


If you are interested in learning LISP but don’t 
need all the extras in TransLISP PLUS, order 
TransLISP for $95. It’s a full, easy-to-use 
introduction to LISP that includes the tutorial 
and demo programs described above, and over 
300 primitives. 

It is a solid subset of COMMON LISP; and 
you can write programs of up to 12000 lines. 


COMMON LISP Standard 


Programs written carefully with TransLISP PLUS will be completely 
“portable” to any other COMMON LISP system on a micro, mini, 
or mainframe computer. This allows you, for example, to write a 
program with TransLISP PLUS on your PC at home, and compile 
and run it on the VAX at work. 


System Requirements 


TransLISP PLUS requires at least 320K RAM and a 360K disk 
drive. 
TransLISP requires 256K RAM and a 360K disk drive. 


Trans Pee PLUS. (sb Pos $195 
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Upgrade TransLISP to PLUS ... $158 
TransLISP PLUS Runtime ..... $150 


TO ORDER OR FOR DETAILS CALL 
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Solution 
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335-D Washington Street, Norwell, MA 02061, (617) 659-1571 
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ARTIFICIAL INTELLIGENCE 
(continued from page 108 ) 


fact, then, and settled upon the far 
easier goal of machine knowledge? 
This is both a crucial and yet ex- 
tremely difficult question. Part of the 
problem is that, for the short term at 
least, knowledge appears to be far 
more useful than is intelligence. This 
may sound surprising, but it is impor- 
tant to remember that human intelli- 
gence must undergo a long training 
period before it can be trusted with 
any serious responsibilities. Just 
imagine buying a program that you 
had to teach for 16 years before it 
could do anything useful! But a 
knowledge-based system, even 
though it does not have much true 
intelligence, can do some useful 
things, usually without any training 
at all. All the same, I think that, in 
planning long-range projects and 
even shorter-range ones, to lean on 
knowledge too heavily and ignore 
the issue of how to make the process- 
ing of knowledge more intelligent is 
tantamount to sidestepping one of 
the most challenging issues AI faces. 

The field of AI today is like a cell in 
which mitosis has occurred so that 
there are now really two indepen- 
dent bodies, both of whom seem to be 
thriving. lam referring to the two re- 
lated fields of commercial applica- 
tions of AI and basic AI research. I 
intend to give both some representa- 
tion here because I think each of 
them are important and interesting. 

Although some noteworthy pro- 
gress is being made in AI today, I think 
it is fair to say that the field suffers 
from extreme fragmentation. A few 
major figures see the “big picture’’ 
and have a vision of sorts, but there 
still seem to be far too many research- 
ers who see only the trees (sometimes 
just the leaves on the trees) and never 
the forests. So far, it has been primari- 
ly the Defense Advanced Research 
Projects Agency (DARPA) that has tried 
to impose some type of an overall 
agenda on AI research, but for several 
reasons, this has not and cannot suc- 
ceed. The changes have to come from 
within Alitself. A new vision based on 
realistic long-range objectives and a 
scenario for its realization will have to 
emerge. 

In spite of the lip service that is fre- 
quently paid to emulating the way 


110 


the human brain works, many AI re- 
searchers, even those who express 
great sympathy for this approach, do 
not, in my opinion, make a serious at- 
tempt to design systems that show an 
appreciation of the high-level organi- 
zation of the brains of even lower ver- 
tebrates. For example, nothing has 
been built as yet that even remotely 
approaches the functioning of the 
cerebellum of even the lower am- 
phibians and reptiles. AI is still a com- 
puter-oriented discipline at this point, 
but in the area of computer science 


All people in AI 
agree that 
we do not know 
how to program 
very well. 


some substantial headway is being 
made. 


Real-World AI 
Many of the large AI tool vendors 
have announced commercial appli- 
cations that had been developed with 
their products this year. Companies 
such as Corning Glass, Campbell 
Soup, and American Express all have 
interesting expert system applica- 
tions that are either completed or in 
stages nearing completion. American 
Express has developed The Authoriz- 
ers Assistant, a system that provides 
an automated authorization service 
for merchants who accept American 
Express charge cards. Another inter- 
esting real-word application of the 
technology is the Expert Publishing 
System developed by Crossfield CSI. 
This firm provides a system that 
helps newspaper staffs control, inte- 
grate, and coordinate the activities of 
various departments that have to co- 
operate to bring out the daily paper. 
The system is intended to be capable 
of fully integrating the layout of 
newspaper pages and tying together 
the functions of the editorial, adver- 
tising, and production departments. 
Another interesting commercial ex- 


pert system is the SEATS system devel- 
oped by Sperry for Northwest Air- 
lines. SEATS addresses the problem of 
handling discount prices in such a 
way as to sell as many seats on sched- 
uled flights as possible. It acts as an 
intermediate operator that interacts 
with two other software systems— 
the Airline Reservation System and 
the Airline Revenue Enhancement 
System. 

Several firms specialize in selling 
finished expert system applications 
for the large business market, too. 
For example, Applied Expert Sys- 
tems is currently selling a generic 
business expert system, called Plan- 
Power, that provides assistance in fi- 
nancial planning. The system is capa- 
ble of analyzing more than 125 
different types of financial asset, 
such as securities, insurance, real es- 
tate, and various types of investments 
as well as providing a comprehen- 
sive plan for a five-year period that 
integrates various recommendations 
for a specific client or user. 

PlanPower is sold as a turnkey sys- 
tem, packaged with a Xerox 1186 AI 
workstation and an HP Laserjet print- 
er. One important advantage of the 
Xerox workstation is that it includes 
an interface that allows it to run soft- 
ware written for IBM PC series com- 
puters. The price for all this is about 
$50,000. PlanPower is supposed to be 
able to recommend various financial 
strategies based upon people’s atti- 
tudes and objectives as well as their 
financial circumstances. Another 
company selling generic business ex- 
pert systems is Palladian, which of- 
fers the Capital Investment Expert 
System and the Manufacturing and 
Logistics Expert System. 

It is not true by any means that all 
serious expert system development is 
being done on expensive LISP ma- 
chines with $50,000 development 
tools. A surprising amount of sub- 
stantial AI has been done already on 
IBM PCs, PC/ATs, and Apple Macin- 
toshes. ARCO, for example, has devel- 
oped the Cementing Expert System 
with the M.1 tool from Teknowledge 
running on an IBM PC/AT. Another oil 
company that has developed an ex- 
pert system using M.1 is Phillips Pe- 
troleum. Other firms that have devel- 
oped expert systems using the M.1 
tool include Gould Electronics and 
the First National Bank of Chicago. 
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The expert system tool that captured 
the knowledge of retiring Aldo Ci- 
mino at Campbell Soup was the Per- 
sonal Consultant tool developed by 
Texas Instruments for PCs and 
compatibles. 

Although there was no particular 
presence of it at either the 1985 IJCAI 
or the AAAI conference in 1986, it 
would be impossible to discuss the 
state of the art in AI without some 
mention of the CYC project that is be- 
ing undertaken by Doug Lenat at MCC 
in Austin, Texas. Dr. Lenat is best 
known for his work on the Eurisko 
Discovery System program devel- 
oped while he was at Stanford and 
Xerox PARC. 

The CYC system is one of the most 
ambitious, long-range AI projects 
ever attempted. Over the next ten 
years, it aspires to develop a knowl- 
edge system of truly encyclopedic 
size that has a knowledge base of 
common sense knowledge as well. 
Although its breadth and depth are 
admittedly of epic proportions, in 
other respects the project is not as 
revolutionary as it might seem be- 
cause it is based largely on today’s AI 
technology rather than the AI tech- 
nology of ten years from now. 

What Lenat proposes to do is liter- 
ally to use encyclopedias as a knowl- 
edge source and to build a deep 
frame-based system that not only en- 
codes the knowledge presented in 
encyclopedia articles but also the 
common sense implied in them. The 
latter, in particular, is the most ambi- 
tious aspect of the project. Common 
sense, oddly enough, is the area that 
researchers still have tremendous 
difficulty in making consciously ex- 
plicit. It is, for example, not at all 
clear that a frame-based conceptual 
hierarchy will be a powerful enough 
tool to model common sense. Done 
properly, a large conceptual hierar- 
chy is certainly a powerful tool. But it 
is powerful for providing the struc- 
ture of knowledge rather than the ac- 
tive processes that are at work when 
we use know-how to solve problems. 

The CYC system is representative of 
the same trend you see at work in 
Stefik’s approach at the Xerox PARC 
Intelligent Systems Group: the refo- 
cusing of AI goals from intelligence as 
an artifact to that of dynamic ma- 
chine knowledge systems. And it is 
also represented in the “knowledge 
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is power’ slogan made popular by 
Edward Feigenbaum. It is now no 
longer intelligence but executable 
knowledge that is power, it seems. 
Nevertheless, in the often mundane 
world of knowledge engineering, 
some intelligent new ways of han- 
dling knowledge are emerging. 


Starplan II 

I want to devote some space here to 
discussing the new Starplan II archi- 
tecture, an expert system for satellite 
diagnosis and repair under develop- 
ment at Ford Aerospace—how it dif- 
fers from the Starplan I configuration 
and why such drastic changes had to 
be made in its earlier design. Starplan 
I was already an interesting expert 
system design because of its use of a 
construct the developers, Ron Sie- 
mens and Jay Ferguson, called guard- 
ians. This was a conscious attempt by 
them to apply Marvin Minsky’s “‘soci- 
ety of experts’ idea. For example, the 
Starplan I system had monitor and 
metamonitor experts, among others, 
that each operated as independent 
knowledge sources in the system. 
Another similar construct was the 
alarm demons, sleeping processes 
that awoke as each guardian became 
initialized and attached themselves 
to appropriate values in a telemetry 
database. 

In order to perform its task proper- 
ly, an expert system such as Starplan 
has to carry out several interrelated 
functions, including monitoring, situ- 
ation assessment, diagnosis, goal de- 
termination, and real-time planning. 
The Starplan I system consisted of five 
main components: guardians, moni- 
tors, metamonitors, a simulator, and a 
relational database. 

In Starplan II this architecture un- 
derwent a drastic revision. The de- 
velopers decided that each of the 
main functions enumerated above 
would have to be implemented as en- 
tirely separate functions. In Starplan 
I, they were all incorporated to some 
degree in the role of the monitors 
and metamonitors, which led to con- 
siderable overlap and redundancy. 
The five components of the new sys- 
tem were organized entirely accord- 
ing to function. They consisted of an 
active database, situation assessment, 
causal diagnosis, goal determination, 
and planning and command. The 
knowledge base became completely 


unified with each of the five modules 
operating on it in the same shared 
memory. The knowledge represen- 
tation was done with the utmost 
completeness. Every object that 
could be reasoned about was repre- 
sented. And each of the objects repre- 
sented was defined with three com- 
ponents: the object’s own attributes, 
its relation to the other objects in the 
satellite, and a ‘‘behavioral’’ descrip- 
tion of the object. 

Starplan II’s developers made ex- 
traordinary claims for the resulting 
system. They developed a hybrid 
knowledge representation system in 
which they set out to incorporate the 
strong points of each of the major 
knowledge representation para- 
digms and to eliminate their weak- 
nesses by overriding them. In their 
presentation at the AAAI conference 
last summer, they claimed to have 
succeeded in this ambitious objective. 


ATRANS 
At the Societe Generale Bank in Brus- 
sels, an important AI application 
called the Automatic Funds Transfer 
Telex Reader (ATRANS) is currently 
undergoing its final testing phase. As 
the name suggests, it is a program for 
reading telex messages in natural lan- 
guage and automatically translating 
them into the machine-readable for- 
mat of the bank’s automatic payment 
system. Developed by Cognitive Sys- 
tems of New Haven, Connecticut, 
ATRANS uses a method of knowledge- 
based parsing and text analysis. The 
main difficulty associated with this 
application is the variety of expres- 
sions that are used during actual rou- 
tine telex transactions. Because the ba- 
sic content of most messages is 
predictable, however, knowledge of 
the nature of the types of transactions 
can be used as a basis for routines that 
can handle various expressions that 
might otherwise confuse a computer. 
The average monetary transfer 
message might contain a mixture of 
irrelevant text, misspellings, non- 
standard names for various banks, 
and various unusual phrases and am- 
biguous references. ATRANS uses a 
large complex script about how mon- 
ey transfers are made between inter- 
national banks to guide its analysis of 
the text of incoming messages. What 
is unique about ATRANS is the minute 
detail with which it analyses these 
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telex messages. Unlike most other 
programs of its type, it carefully ana- 
lyzes each and every word and pro- 
duces a highly complex, detailed en- 
coding of its content. And it does this 
surprisingly fast for such a large LISP 
application. Running on a VAX 11/785 
under the VMS operating system, 
ATRANS processes an average funds 
transfer telex in less than 20 seconds. 


PRIDE 

I also find it encouraging that several 
expert systems are now being devel- 
oped in the area of mechanical engi- 
neering design. In the past, nearly all 
the design systems attempted were 
intended for VLSI and other types of 
circuit design. One of the most inter- 
esting mechanical design programs is 
the PRIDE system, developed at Xerox 
PARC. The system is intended for the 
design of paper transport devices in- 
side copy machines. Although this 
may not sound all that earthshaking, 
it is a difficult achievement to develop 





software that can design anything 
properly. It is just these tedious and 
routine sorts of devices that you want 
machines to design, though, to leave 
human designers more time to work 
on creative and_ challenging 
problems. 

PRIDE is interesting too because of 
the general framework and basic ap- 
proach it uses to accomplish its goal 
successfully. This framework is delib- 
erately configured to handle a whole 
class of design tasks—namely, those 
that can be characterized as having a 
well-defined search space. Given this 
condition, the assumption is that the 
design process can be reduced to the 
task of searching the space of possible 
designs. The search technique used, 
of course, is a special one uniquely 
suited to this type of problem. De- 
tailed knowledge is used to configure 
the search space by the creation of 
partial designs according to various 
design constraints, and further 
knowledge is employed to reconfig- 
ure the design when it turns out that 
constraints have been violated. 

Each of the different types of 
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knowledge used in PRIDE are orga- 
nized into design plans. The main 
problem solver that executes these de- 
sign plans has the ability to search the 
entire design space if necessary. The 
basic AI technique used to implement 
the problem solver is a dependency- 
directed backtracking mechanism 
equipped with an advice mechanism 
that allows information about why a 
design failed to be used to select a like- 
ly direction in which to backtrack. 

So in all, the framework utilized to 
build the PRIDE system exploits four 
main types of knowledge: ordering 
knowledge that defines the dimen- 
sions of the design space, knowledge 
that guides the choices along each di- 
mension, constraints on design pa- 
rameters, and modification advice 
for aiding redesign. These types of 
knowledge have been skillfully inte- 
grated into knowledge structures 
that operate as usable plans. To en- 
able this to work, plans are organized 
in terms of goals for making specific 
decisions about design parameters. 
In the PRIDE paper handler design 
system, these goals include things 
such as the design of paper path, 
driver roll, and driver width. As you 
might expect, each of these design 
goals is responsible for a certain set of 
design variables that correspond to 
its task. 

Each of the design goals in the PRIDE 
system also has various design meth- 
ods assigned to it that define alterna- 
tive ways in which decisions about 
design parameters can be made. Some 
examples of design methods are gen- 
erators, which actually specify sets or 
ranges of design parameters; calcula- 
tions, which apply math operators to 
previously determined design vari- 
ables; and subplans, which specify 
subgoals that are needed to satisfy 
higher level goals. 

The PRIDE system was developed as 
a collaborative effort between Xerox 
PARC and the Xerox Reprographics 
Business Group. A prototype version 
was field-tested for more than a year, 
during which time it was tested on 
actual design problems in various on- 
going copier projects at Xerox. Ac- 
cording to the evaluations made of 
the prototype version, it was able 
both to develop new designs success- 
fully and evaluate the shortcomings 
of designs produced by engineers. 
Research is now continuing in order 
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to improve the advice mechanism to 
handle those difficult situations in 
which many constraints fail simulta- 
neously and in which conflicts be- 
tween different advice options have 
to be resolved. 


New Developments in AI 
Research 
Agora 
One of the more ambitious AI re- 
search projects underway is the 
work being done on the Agora sys- 
tem at Carnegie-Mellon University. 
Agora is really a general-purpose AI 
development environment that has 
been designed specifically to support 
applications written in multiple lan- 
guages and those that support highly 
parallel problem-solving approach- 
es. The way Agora goes about doing 
this is by providing a virtual machine 
that is independent of any particular 
programming model or language 
and that can be mapped onto a vari- 
ety of different computer architec- 
tures. The current system is actually 
the result of two different designs 
and implementations that were 
made in 1985. One is being used for a 
prototype speech-recognition system 
running on a network of MicroVAXs 
and Pergs and will be extended this 
year to support a shared-memory 
parallel computer as well as addition- 
al Sun and IBM RT/PC workstations. 
Agora was used to develop the AN- 
GEL speech-recognition system, 
which currently consists of more 
than 100,000 lines of C and Common 
LISP code running at a speed of about 
1,000 MIPS. ANGEL has been developed 
by a team of more than 15 program- 
mers, and because of this large num- 
ber of programmers, several different 
computation styles have been used to 
implement the complete system. 
Agora has a multilayered architec- 
ture that makes particular use of the 
blackboard approach to knowledge- 
based processing. On the first layer is 
the heterogeneous mix of distributed 
hardware mentioned earlier. On the 
next layer is the MACH operating sys- 
tem, a Unix-compatible multiproces- 
sor OS that uses the techniques of 
message passing, shared memory, 
and threads to provide the basic soft- 
ware that addresses the different 
types of hardware. The next layer 
above MACH is the parallel virtual 
machine layer, which forms the as- 
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sembly-language level of the Agora 
machine. At this level computations 
are programmed in C and Common 
LISP that use basic Agora primitives to 
compile higher-level routines and as- 
sign them to the various processors. 
Above this is the framework layer, 
which is the level at which applica- 
tion programmers work. Finally, 
there is the layer of the actual know]- 
edge source clusters. 

Detailed simulations of the Agora 
virtual machine have been conduct- 
ed and the speedup factors deter- 
mined for its use on a variety of dif- 
ferent hardware types, including 
custom VLSI multiprocessor chips. 
Initial reports indicate favorable per- 
formance on a broad mix of hard- 
ware. The Agora architecture is an 
important step forward in designing 
hardware-independent AI systems 
for distributed and parallel process- 
ing and is bound to be the coming 
trend in large systems, such as those 
used aboard the NASA space station. 


BACAS 
Researchers at the University of Es- 
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sex in the U.K. are developing a new 
parallel, content-addressable memo- 
ry computer architecture called the 
Binary and Continuous Activation 
System (BACAS). This system is intend- 
ed specifically for storage and re- 
trieval of knowledge structures that 
turn out to be particularly useful for 
natural language understanding. 
Currently, BACAS is a two-layered 
system with a total of 10 different 
types of main knowledge structures, 
or K-structures, and 46 types of small- 
er knowledge structures, or TKUs. 

In some respects this system is rath- 
er simple compared with many 
schemes for natural language pro- 
cessing and content-addressable 
memory, but in others it is rather 
subtle. It has only two “‘levels.’’ On 
one level are “micro-units,”’ the ele- 
mentary actions or indivisible items 
of knowledge out of which larger 
knowledge structures are built. On 
the upper level are the threshold 
knowledge units (TKUs), which are 
built from the micro-units. The TKUs 
are like individual scenes in a movie 
that can be constructed into larger 
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scripts. It is these larger structures 
built from TKUs that form the ten 
types of K-structure. 

The TKUs are a kind of hybrid be- 
tween the older logic threshold unit 
idea of Minsky and Papert in their 
work on perceptrons and the newer 
neural net pattern completion ap- 
proach developed by John J. Hop- 
field, which is currently so fashion- 
able. The main problem that BACAS is 
designed to solve is to build a system 
that can make easy and rapid transi- 


tions between successive knowledge | shape. Continuing research is also 


structures in the course of single lan- 
guage interpretation tasks. Earlier, 
the researchers had attempted to use 
the Boltzmann machine approach 
but found it unworkable for enabling 
such transitions easily. 

At the time the BACAS system was 
reported, it still lacked many of the 
facilities that it will ultimately need 
to function effectively, such as repre- 
sentation of causality and mecha- 
nisms for temporally ordering units 
and role binding. As work continues 
on this system, it will be interesting to 
see how the complete system takes 
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oriented toward developing a learn- 
ing mechanism for BACAS, which 
makes this a promising project to 
track. It is another example of a mar- 
riage between state-of-the-art soft- 
ware and hardware concepts that 
has considerable potential. 


JUDGE 

JUDGE is an another interesting pro- 
gram, mainly from a computer sci- 
ence vantage point because a com- 
mercial version would hardly be 
likely to become a best-seller. It is a 
case-based reasoning program that 
assumes the role of criminal court 
judge. It was written at Yale Universi- 
ty by William A. Bain and is a sample 
of the latest in scripts from the Schan- 
kian school. 

A case-based program is one that 
uses previous examples of a particu- 
lar activity to produce new perfor- 
mances of the activity to meet new 
circumstances. Fifty-five real cases of 
manslaughter and assault were read 
into the system, selected for their var- 
ied characteristics from the view- 
point of the program's parameters. 
To provide the model for the sentenc- 
ing judge, various presiding judges in 
the Superior Court of Connecticut 
were interviewed. The resulting sys- 
tem has five stages of operation that 
are used to formulate a criminal’s 
sentence: interpretation of the case; 
retrieval of similar cases; difference 
analysis of the current case and those 
retrieved; strategy application and 
modification, which adjust past sen- 
tences when necessary; and the gen- 
eralization facility, which allows 
JUDGE to derive rules based on its 
findings about similar cases. 

The purpose of a research system 
such as JUDGE is not to provide a proto- 
type for an actual automated criminal 
court judge. Rather, it is to explore a 
type of reasoning that differs signifi- 
cantly from most of the types of rea- 
soning that AI systems have so far ex- 
plored. The emphasis is really on 
case-based reasoning and learning 
problems as they apply in legal situa- 
tions generally, rather than the prob- 
lem of criminal sentencing per se. The 
program, therefore, attempts to break 
new ground in the modeling of sub- 
jective human reasoning that is of a 
very different kind from the diagnos- 
tic reasoning used by doctors and 
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equipment troubleshooters. 


Butterily LISP 
Currently, several projects are afoot 
to develop new parallel hardware 
specifically for the rigors of AI appli- 
cations. In most cases, an extended di- 
alect of LISP is created specifically to 
make use of these machines. One of 
the most interesting of the new crop 
of Al supercomputers is the Butterfly 
Machine that has been built at Bolt, 
Beranek, and Neumann. Basically, 
the Butterfly Machine is an example 
of a coarse-grained parallel architec- 
ture as opposed to the massive paral- 
lelism of the Connection Machine. 
The Butterfly Machine uses numer- 
ous processing nodes (up to 256) each 
of which consists of a 68000, between 
1 to 4 megabytes of RAM, and a cus- 
tom processor node controller (PNC). 
It is from the PNC units that the But- 
terfly Machine gets its name. The 
PNCs are programmed in microcode 
to enable inward and outward But- 
terfly switch transactions and to ex- 
tend the instruction set of the Motor- 
ola 68000 for multiprocessing. 
Originally, all the programming on 
the Butterfly Machine was done in C. 
Based, however, on work done by 
Robert Halstead and the Multilisp 
group at MIT, an extended version of 
Common LISP that was also based on 
some features of the Scheme dialect 
has been implemented for the But- 
terfly Machine. One of the main fea- 
tures of Butterfly LISP is the future 
construct. Its form is simple. The syn- 
tax used is: 


(future < expression >) 


where the expression can be any LISP 
expression whatsoever. The future 
construct is used as the basic task-cre- 
ating mechanism in Butterfly LISP. 
When the user makes a call to the sys- 
tem using the future construct, if re- 
sources are available, the computa- 
tion is begun and control returns 
immediately to the function that 
made the call to future, returning a 
novel LISP object called an ‘‘undeter- 
mined future.’ This future object 
then acts as a temporary placeholder 
for the ultimate value of the expres- 
sion and as such can be stored or ma- 
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nipulated in any fashion just as the fi- 
nal value would be. This, of course, is 
extremely significant because it 
means that the various computations 
often do not have to wait for the value 
of the needed expression but can con- 
tinue on with their own operations as 
if the needed value were already 
available. Naturally, however, any 
operation that includes a conditional 
that depends on the value of the fu- 
ture expression will have to be sus- 
pended until that value becomes 
available. The implications of this are 
far reaching. It means that the results 
of parallel processing can be manipu- 
lated without explicit synchroniza- 
tion and that the form of parallel LISP 
programs can be essentially similar to 
the same programs written for se- 
quential machines. 


New AI Products 

In later columns I'll be giving con- 
crete examples of what some of the 
newest and most powerful AI tools 
can do. Here is a rather extensive pre- 
view of some of the products that 
you ll be reading about in far more 
detail in the months ahead. 


ACORN 

First, then, is ACORN from Gold Hill 
Computers. ACORN is a LISP-based ex- 
pert system development tool that 
seems to be one of the largest and 
most sophisticated that has appeared 
so far for microcomputers. It runs on 
the large-model 286 Developer ver- 
sion of Golden Common LISP for IBM 
PC/ATs and compatibles. One of the 
reasons why I am excited about 
ACORN is the definite influence I see 
of the ideas of MIT’s Dr. Carl Hewitt, 
the primary advocate of the actor 
model of programming. Gerry Bar- 
ber, the chief scientist at Gold Hill 
was, of course, a student of Hewitt’s 
at MIT. ACORN is not a true actor sys- 
tem, but it would probably be correct 
to say that it is the expert system tool 
that shows the most influence of the 
actor programming model. 


ART 3.0 

It would be wrong not to mention the 
new version of the ART tool, Release 
3.0, even though its cost still keeps it 
well out of most people’s reach. It is a 
LISP-based expert system tool from 
Inference Corp. that was originally 
sold exclusively for LISP machines 


but now will be available in a C ver- 
sion for Sun workstations and the IBM 
RT/PC. One of the real delights of ART 
is the Artist system, an impressive 
graphics and animation package. 
ART was the first commercial expert 
system tool to offer the capability of 
multiple hypotheses reasoning using 
the viewpoints construct. 


ExperOPs5-Plus and 
ExperProlog II 

Expertelligence has made two im- 
portant additions to its line of prod- 
ucts for the Macintosh. ExperOPSs5- 
Plus is a more powerful version of 
the ExperOPS5 product and includes 
a toolkit for adding dialog boxes to 
provide a much-needed user inter- 
face to systems built with OPS5. Dialog 
boxes can be used to display bit- 
mapped images that have been de- 
veloped with MacPaint or MacDraw. 
Another addition in ExperOPs5-Plus 
is access to the real-time speech syn- 
thesis functions provided with Ex- 
perLisp Plus, available separately. 
ExperProlog II is an implementation 
of PROLOG II, the new standard for 
the language proposed by Alain Col- 
merauer, the inventor of PROLOG. Ex- 
perProlog II takes full advantage of 
the Mac desktop to provide a conve- 
nient interactive development envi- 
ronment, as well as a facility for par- 
titioning knowledge bases into 
separate contexts or worlds. Exper- 
Prolog II can be configured to use up 
to 4 megabytes of memory. 


Expert Development Package 

Arity Corp. is now selling an expert 
system shell, called the Expert Devel- 
opment Package, that runs in Arity’s 
powerful implementation of PRO- 
LOG. The package comprises two re- 
lated languages—the Taxonomy lan- 
guage, which offers a frame-based 
object hierarchy with built-in inheri- 
tance, and a rule-based language that 
supports an English-like syntax for 
rules. The system is designed for PCs 
and PC compatibles with 640K and 
support for the Above Board expand- 
ed memory standard. Initial testing 
of this package indicates that the ex- 
panded memory option is necessary 
for any serious application work. 
The advantages of this system are the 
open architecture, which allows a 
two-way interface between it and 
PROLOG, and the fact that Arity’s PRO- 
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LOG compiler can be used to develop 
stand-alone expert systems in stand- 
ard, .EXE machine-code format. 


The Intelligence/Compiler 

The Intelligence/Compiler from In- 
telligenceWare is another exciting ex- 
pert system shell that is helping to 
make all those people who said that 
professional AI systems cannot be 
supported on microcomputers think 
again. This system supports four dif- 
ferent programming paradigms: rule- 
based programming, frame-based 
representation, logic-based program- 
ming, and procedural programming. 
Other pluses with The Intelligence/ 
Compiler include a smart editor and a 
built-in B-tree database manager. The 
editor includes its own built-in parser 
that can detect syntax errors, and 
word completion and spelling check- 
ing are also planned. 


KEE 3.0 

Intellicorp has taken the first step to- 
ward updating its KEE system to keep 
pace with the competition. In Release 
3.0 it has introduced the KEEworlds fa- 
cility, which is intended to provide 
KEE with the capability of hypotheti- 
cal reasoning with multiple hypo- 
thetical continuations. The KEEworlds 
facility is based on the ATMS (assump- 
tion-based truth maintenance) ap- 
proach to truth maintenance devel- 
oped by Johann deKleer at Xerox 
PARC. Full integration with all other 
facilities of KEE is provided with this 
new capability, and an interactive 
user interface featuring a World- 
Browser has also been provided. 


Nexpert Object 

The only way to classify Neuron Da- 
ta’s new Nexpert Object system for 
IBM PC/ATs and compatibles—a sig- 
nificantly more powerful version of 
the system available for the Mac—is 
as an extremely imaginative product 
that is very much in a category all its 
own. This is easily the tool that comes 
the closest of any so far to creating an 
AI workstation environment on a mi- 
cro. In addition to the lush user inter- 
face running under Microsoft Win- 
dows, Nexpert Object has several 
powerful and unique features. One 
of my favorites is the common rule 
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format for both forward and back- 
ward chaining. As far as I know, this 
is the only commercial expert system 
shell that offers this feature. 

Most expert system shells that offer 
fully specifiable forward and back- 
ward chaining use a different format 
for forward and backward chaining 
rules, which means that the same 
knowledge cannot be used in both 
reasoning modes. With a common 
format for both types, the opportuni- 
ty exists for writing ‘pure know!l- 
edge” rules that are usable for a vari- 
ety of purposes and can be accessed 
in either type of inference. 

The main new addition to the sys- 
tem is a major one. Nexpert Object 
has a true object-oriented class hier- 
archy system whereas Nexpert for 
the Mac does not. An object editor is 
provided to make this facility accessi- 
ble to users. Each object has proper- 
ties (or slots) as well as subobjects. A 
subobject is a part of the object that 
constitutes an object in its own right, 
such as an organ that is part of a per- 
son’s body. An object also has metas- 
lots, which provide various ways for 
the object to utilize various custom 
features regarding such things as its 
salience, inheritance relations, or 
sources of information. 


Office Automation Toolkit 

One interesting tool available for LISP 
programmers is the Office Automa- 
tion Toolklit from Grandmaster. This 
is a high-level library of program- 
ming tools that facilitate the develop- 
ment of business-oriented applica- 
tions in LISP. This package is built for 
the muLISP-86 dialect available from 
Soft Warehouse and Microsoft. Func- 
tions provided in this toolkit allow 
programmers to develop applica- 
tions that use multiple buffers, multi- 
ple windows, menus, forms, and nat- 
ural language commands. A new 
addition to the toolkit also provides 
functions for programming applica- 
tions that utilize the B+-tree data- 
base structure. One of the attractions 
of this toolkit is that, like libraries 
written for compiled languages, no 
royalties have to be paid on stand- 
alone applications that use it. 


PC Scheme 2.0 

Difficult as it may be to choose, if 
pressed, I would have to say that the 
most remarkable implementation of 


LISP, as well as my favorite object-ori- 
ented programming environment 
for PCs so far, is PC Scheme from Tex- 
as Instruments. PC Scheme is the 
most modern and streamlined of the 
LISP dialects and is the one many 
think should have been the basis for 
Common LISP. PC Scheme provides 
an object-oriented extension called 
SCOOPS that features the Mixin multi- 
ple-inheritance capability and active 
values, formerly found mainly on ex- 
pensive LISP machines. PC Scheme in- 
cludes a compiler and a smart, 
Emacs-style, full-screen editor. At less 
than $100, this is easily the best buy in 
LISP systems for PCs. If it were not for 
TI's extreme low profile in market- 
ing this product, it probably would 
have already became the LISP coun- 
terpart to Turbo Pascal. It undoubted- 
ly will in any case. 


Personal Consultant Plus 

TI has also rewritten and significant- 
ly updated its expert system shell 
product, which now runs in the PC 
Scheme environment. Personal Con- 
sultant Plus offers four main features 
that are of particular interest: frame- 
based representation, metarules, ac- 
tive value access methods, and an 
open architecture. The open archi- 
tecture in this case is particularly in- 
teresting because it means that it is 
possible to construct some advanced 
“deep” systems with Personal Con- 
sultant Plus by exploiting SCOOPS, the 
object-oriented extension to PC 
Scheme. Other useful features are 
the ability to display graphic images 
and a Snapshot utility that can import 
graphics developed using any other 
software package. 


VP-Expert 

Paperback Software's VP-Expert pro- 
gram is likely to become the same 
kind of spoiler in the commercial AI 
software category that Turbo Pascal 
was in the structured programming 
segment of the market. It has just too 
many features to be sold for less than 
$100—or so all its competitors will 
undoubtedly feel. The irrepressible 
Adam Osborne obviously has differ- 
ent thoughts on the subject. First im- 
pressions of it are that it is something 
like a poor man’s Guru or a poor 
man’s M.1. But this is not quite right 
either because VP-Expert has other 
features that make it comparable in 
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WE JUST GOT 


MORE SOPHISTICATED 






e invented BASIC over 
20 years ago. 


Later, we re-invented it for 
micros as the True BASIC” 
structured-programming language. 

And the idea was: To make program- 
ming as easy and natural as possible. 

So you could concentrate on what to 
program. Not how. 


Now there's True BASIC Version 2.0 for 
the IBM® PC and compatibles. Faster, 
more powerful and sophisticated than 
the original. 


MORE GRAPHICS. 


Right from the start, True Basic gave you 
terrific device-independent graphics. 
Built-in 2-D transforms. And support for 
multiple windows. 


Now we've added more graphics and 
full mouse support. 


So for the first time, you can create one 

program that will do superb graphics on 
CGA, EGA or Hercules displays. With- 

out worrying about additional drivers or 
overlays. And on the EGA, you can SET 
COLOR MIX to define your own colors. 
Use four shades of blue if you want (and 
make our competitors green with envy). 


MORE CONTROL. 


We always supported you with recursion, 
local and global variables and separately 
compiled libraries. 


Now you can have modules, too, the 
industrial-strength tool for building large 
applications. 


Using modules makes it easier for you 
to share data between routines. Build 
data structures. Then, if you want, hide 
them from other parts of the program. 
So you can always be free to focus on 
the task at-hand. 


Modules have their own initialization 
sections, so you can set up global vari- 
ables or turn on instrumentation. 


And, like other procedures in True 





BASIC, modules can be compiled sepa- 
rately and stored in a library where they 
can be shared by several applications. 
Or they can be loaded directly into the 
True BASIC environment as part of your 
customized workspace. So when you 
use True BASIC interactively, the mod- 
ules look like built-in functions. 


Modules made Modula-2 the successor 
to Pascal. Now they've put True BASIC 
one-up on all other BASICs. 


MORE SPEED. 


2.0 is 20 to 200 percent faster than True 
BASIC Version 1.0. Both compile times 
and execution speeds. And on some 
real-world benchmarks, we're faster 
than many native-code compilers. 


MORE POWER. 


Start with a complete matrix algebra 
package. 


Then, since we support the use of 640K 
for both code and data, add arrays as 
large as you want. 


Our compiled code is more compact than 
what other compilers generate, so there's 
more memory left for your application. 


We've enhanced our dynamic array 
redimensioning and improved our built- 
in 8087/80287 support, making True 
BASIC the most powerful number- 
crunching BASIC around. 


And if it's strings you crunch, we've 
added new string functions and raised 
the limit. So strings can be up to 64K 
characters long. 


MORE DEBUGGING. 


We pioneered breakpoints and immedi- 
ate-mode capability in a compiled 
BASIC environment. 

Now we've added utilities that allow 
you to visually TRACE through your 
program, and check the values of 
selected variables. Or print a cross- 
referenced listing. 
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YOU CAN GET 
ORE BASIC. 


And new compiler options like NO LET 
and NO TYPO let you decide how 


strictly you want your variable names 
checked. 


MORE INNOVATION. 


True BASIC has always had features 
like full-screen, scrollable editing. 
Block copy and block moves. And 
global search and replace. 


Now, 2.0 keeps you on the leading edge 
of editing and file-management technol- 
ogy. With SCRIPT, to write the True 
BASIC equivalent of a DOS batch file. 
ECHO, to transfer your output to disk or 
printer. And ALIAS, to give you and 
your programs a better roadmap to your 
subdirectories. 


There's also Version 2.0 of the Devel- 
oper's Toolkit. With support for DOS 
interrupts. Pop-up menus. Even 
designer fonts. 


And remember: your programs are por- 
table to the other machines we support: 
the Apple Macintosh” and Commodore 
Amiga® 


MORE SUPPORT. 


Call your local dealer. Call us TOLL- 
FREE at 1-800-TR-BASIC. Or write to: 
True BASIC, Inc., 39 South Main Street, 
Hanover, NH 03755. We'll send you 
more information. Including a free 
demo disk. 


See for yourself. That we're still true to 
our basic idea. 


™ 


inc. 


True BASIC Language System is a trademark of True 
Basic, Inc. Macintosh is a trademark licensed to Apple 
Computer Inc. Amiga is a registered trademark of 
Commodore-Amiga, Inc. IBM is a registered trademark 
of International Business Machines. 
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some ways to programs such as Ex- 
pert Ease. Suffice it to say that it is 
now easily the runaway winner for 
the “best buy” award in PC expert 
system software. 


New AI Books 

Right now, with the enormous 
changes in Al—both those already 
occurring and the ones still ahead— 
| books are playing as much or more of 


a role in leading the way as are im- 
portant AI programs and applica- 
tions. Like it or not, books reach a lot 
more people than great programs do. 
Here are some new ones that look es- 
pecially interesting: 

Agha, Gul. ACTORS. Cambridge, 
Mass.: MIT Press, 1986. 

Galambos, James A., et al. Knowledge 
Structures. Hillsdale, N.J.: Lawrence 
Erlbaum Assoc., 1986. 

Schank, Roger. Explanation Patterns. 
Hillsdale, N.J.: Lawrence Erlbaum As- 
soc., 1986. 
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COLUMNS 


his column begins a series of dis- 

cussions regarding the transla- 
tion of programs between different 
languages or implementations. I'll 
start by looking at selected cases of 
translating Turbo Pascal programs 
into Logitech Modula-2. 

Logitech has recently released the 
Translator, which allows the migra- 
tion of memory-hungry Turbo Pascal 
programs to Modula-2/86. Discussing 
the Logitech Translator at length 
would fill a book; instead, I'll present 
four sample Turbo Pascal programs 
and discuss their translations. 

The first question you might ask 
about the Translator is, ‘“Does it trans- 
late 100 percent?’ For most applica- 
tions, the oversimplified answer is no. 
The Translator may include several 
warning messages in a generated 
Modula-2 listing, but the absence of 
such messages does not necessarily 
mean that the program compiles cor- 
rectly. Asa matter of fact, the Transla- 
tor deliberately leaves some types of 
errors (those due to incomplete trans- 
lation) for the compiler to detect. 

Before you translate a program, 
you should first identify its compo- 
nents: expressions, loops, decision- 
making constructs, procedures, func- 
tions, and so on. The Translator can 
translate similar language aspects, 
such as loops, decision-making con- 
structs, and routines, from Pascal to 
Modula-2 without the need for ‘‘man- 
ual” editing. Any difficulties in trans- 


by Namir Clement 
Shammas 


lation are partially because of differ- 
ences in data types and their 
manipulation. 


Numeric Manipulation 

Listing One, page 70, shows a Turbo 
Pascal program that implements a 
simple four-function calculator. The 
program deals with REAL numeric 
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Modula-2 


gf Fortran 


“nan 





manipulations. Listing Two, page 70, 
contains the translated Modula-2 
code. No hand-coded patches were 
needed to make the Modula-2 version 
run correctly. Note that the RE- 
PEAT ...UNTIL loop and the CASE 
and IF ... THEN constructs have been 
translated correctly. The Modula-2 
version contains more code, especial- 
ly for I/O operations—for example, a 
single Pascal WRITELN statement has 
been replaced by several Modula-2 
procedures. Notice the use of stdinout 
as the standard I/O device in the 
Modula-2 translation. In addition, the 
output procedures in Modula-2 con- 
tain arguments for formatting the 
displayed numbers. 

A note on translating a Turbo Pas- 
cal CASE statement without the ELSE 
clause: in Turbo Pascal, if the value of 
the CASE variable does not match any 
option, program flow simply re- 
sumes outside the CASE construct. A 
similar situation in Modula-2 yields a 
run-time error. Thus, the Translator 
inserts an ELSE clause in the CASE 
construct if one is not present in the 
Pascal program. 

The first example translates with- 
out any snags. Programs that tackle 
sorting and searching of INTEGERs 
and REALs fall into the same category. 
However, operations such as bit ma- 
nipulation using INTEGERs and im- 
plicit numeric type conversion need 
additional editing. The core Modula-2 
language does not support bit ma- 
nipulation using INTEGERs or CARDI- 
NALs—after all, that’s what the BIT- 
SET type is for. This can be frustrating 
for Pascal programmers who take in- 


STRUCTURED PROGRAMMING 


Language Translations 


teger-bit manipulation for granted. 
The Translator library does, howev- 
er, contain procedures that support 
manual editing for integer-bit ma- 
nipulation. For example, you can re- 
code the following Pascal expression: 


(Base_Address AND Offset) OR 
(Mem_Loc Shl 3) 


by hand into the following RPN-like 
expression in Modula-2: 


OR(AND(BaseAddress, Offset), 
Shl(MemLoc,3)) 


String Manipulation 

The next example deals with string 
manipulations. Listings Three, page 
72, and Four, page 78, contain pro- 
grams that perform text pattern 
searches. The ?’ and “*’ wildcards are 
supported and follow the convention 
familiar to CP/M and MS-DOS users. 
String manipulation is the most com- 
mon area in which a good deal of ad- 
ditional editing is required. First, in 
Turbo Pascal the STRING type is pre- 
defined with a lower index of 1anda 
maximum lengih of 255. (The zero in- 
dex of a Turbo Pascal STRING stores its 
maximum length.) In Modula-2, 
strings are handled quite differently. 
Basically, they are treated as arrays 
of characters. The current Modula- 
2/86 compiler requires that string 
types have a lower array index of 0. 
The reason for this seems to be a fea- 
ture that enables the compiler to 
automatically insert an end-of-string 
delimiter (as in the C language) when 
assigning a string constant to a string 
variable, as in: 


Name: ARRAY [0. . 79] OF CHAR; 
(** more definitions and statements *) 
Name := ’Don Johnson’; 


Otherwise, the programmer is re- 


sponsible for inserting the control 0 
delimiter, as in: 
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Name := ARRAY (1. . 80] OF CHAR; 

(* more definitions and statements *) 
Name := ‘Don Johnson’; 
Name[12] := OC; 


Strings in Modula-2/86 can be up to 
65,535 characters long, and future 
implementations may permit this 
upper limit to be around two billion 
(the upper range of the long integer 
type LONGINT). Moreover, the sup- 
port of open arrays in Modula-2 does 
away with the Turbo Pascal directive 
{$V-}’ to relax the strict string type 
checking with routine parameters. 

Listing Four contains comments 
beginning with --> strings. These 
point out the lines emitted by the 
Translator that needed further edit- 
ing. A few lines were inserted, and 
the INC procedure was removed be- 
cause Modula-2 already has it as a 
predefined routine that performs the 
same task. The constant declaration 
section has a new identifier HI, 
which is used in conjunction with 
the substring scanning function 
Pos( ). In Turbo Pascal, a value of 0 is 
returned if no match is found. In 
Modula-2, the index value of 0 points 
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Aint Hee: 


rates ZA 


to the first character. The implemen- 
tors of the Modula-2 version Pos( ) 
have elected to return a value greater 
than the upper string dimension lim- 
it. Thus, in Turbo Pascal you test for 
substring match using: 


Actor := ‘Don Johnson’; 
(* Index is an INTEGER *) 
Index := Pos(’Sellek’, Actor); 
IF Index > 0 THEN (* statements *) 


whereas in Modula-2 the same test is 
written, using the HIGH( ) function, 
as: 


Actor := ‘Don Johnson’; 
(* Index is a CARDINAL *) 
Index := Pos(’Sellek’,Actor); 
IF Index <= HIGH(Actor) THEN 
(* statements *) 


The constant HI is assigned as a ‘“‘con- 
sistent” large integer value that sig- 
nals a substring mismatch status. It is 
assigned to variables that are used to 
monitor the first character position 
at which a match occurs. 

You may have noticed I have used 
open arrays in the PatternSearch 
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function instead of the STRING255 
and STRING4O types for declaring the 
two string parameters. The declara- 
tion can be rewritten as: 


PROCEDURE PatterSearch(TextLine, 
Pattern : ARRAY OF CHAR): 
(* function returns an *) INTEGER; 


The body of the function has been 
edited to use constant HI and to ac- 
count for the difference between the 
indexing schemes that Turbo Pascal 
and Modula-2 use. 

The Modula-2 version of Pattern- 
Search has a new identifer, Pattern- 
SearchResult, to return the function 
result. The Translator inserts the 
new identifier because in Modula-2 
functions return their results via the 
RETURN <identifier> syntax and do 
not use the function name in an as- 
signment statement. 

In the procedure ScanPattern and 
the function LocatePattern, the vari- 
ables tracking character positions 
have all been shifted by 1 and as- 
signed an initial value of 0. Using the 
string-copy function Copy( ) seems to 
require no alteration. In the function 
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STRUCTURED PROGRAMMING 
(continued from page 125) 


LocatePattern, most of the tests in the 
IF statements needed editing. The 
original statements are still included, 
enclosed in comments. Also notice 
that the result of the string length 
function, which returns a CARDINAL, 
has been converted into an INTEGER 
to match the assigned variable type. 
In the main program segment, the 
IF Line =’’ THEN Pascal code has 
been rewritten as IF Line[O] = OC 
THEN for Modula-2. In addition, string 
assignment between two variables 
needs the Assign( ) procedure instead 
of Pascal's := assignment operator. 



















Sets 

The third example deals with sets. 
Logitech Modula-2 specifies that sets 
can have 16 members at most—not 
enough to handle the character sets 
that Pascal supports. The Translator 
emits BITSET{} when it encounters 
Pascal sets such as [Y, y/ or 
[‘A’.. ‘Z’] The translation needs man- 
ual editing, using a much needed 
LongSet module supplied with the 
Translator. Listing Five, page 84, 





TURBO TOOLBOXES 


FULL SCREEN I/O 


This toolbox gives you aS much power for keyboard, 
screen, and printer I/O as Borland’s Database Toolbox gives 
you for disk I/O. It lets you read many fields from the screen 


in one operation. 


Read a record and display all fields on the screen. Your 
user can tab around from field to field, changing any or all 


shows a simple Pascal program that 
performs character counting. The 
program prompts you for a text file; 
reads it; and classifies each character 
as either a digit, uppercase, lower- 
case or “others.” It then draws a sim- 
ple histogram (each *’ represents a 
hundred count) for each character 
category. The program is used to 
demonstrate handling small and 
large (more than 16 elements) sets. 
The Translator produces a Modula- 
2 program (Listing Six, page 85) that 
requires a fair amount of editing. 
First, I'll discuss the small set. In the 
Turbo Pascal listing, a two-member 
set /’Y’,’y’] is used to examine the us- 
er’s response in the UNTIL clause. In 
the Modula-2 version, I import Make- 
Empty( ), Include( ), and Inset( ) and 
the SetOfChar type from module 
LongSet. In the Modula-2 program, I 
declare YesNo as a variable of type 
SetOfChar and use the MakeEmpty 
procedure to create an empty set of 
YesNo. The Y and y set members are 
inserted using the Include procedure. 
Notice the nested use of WORD( ) and 
ORD( ) to transform the character's AS- 
Cll code into a WORD. The above steps 
prepare the YesNo set for testing of 


fields, before sending the whole screen back to your 


program. 


Numeric fields act like a calculator window. String fields 
have insert, overwrite, and delete. Formatted fields are good 


for phone numbers and dates. 


Use color (or intensity on monochrome) to highlight input 


fields. Choose a border color. 


Print selected lines from the screen. No need to format a 
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membership. The Boolean function 
InSet( ) is used with the ordinal value 
OK, the character-typed response. 

Handling long sets is different. The 
BuildSet( ) procedure takes three ar- 
guments: the set-typed variable and 
the ordinal values of the first and last 
set members. Three calls are made to 
BuildSet( ) to create the three sets in 
question (I am treating DigitSet as a 
long set). The Inset( ) function is used 
to determine the set membership of 
each file character read. 


Absolute Variables 

The last example deals with simple 
absolute variables. Listings Seven and 
Eight, pages 86 and 87, show Pascal 
and Modula-2 programs that write 
strings directly to the screen memory 
of an IBM PC with a monochrome 
monitor. The Pascal listing contains 
an identifier DISP defined as: 


DISP : SCREEN80 absolute $B000:0000; 


which is edited in Modula-2 to 
become: 


DISP [BOO0H:00H] :STRING80: 
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accessible to the user at all times. 


With screenplay, you can prototype your draft screens before you write a single 
line of COBOL source code. These can then be reviewed with your boss or your 

HELP/Popup provides memory resident access to your custom help screens. 
The complete package (software, on-line manual, printed manual, and demo 


customer for final approval, before you start writing source code. 
programs) costs $125.00 and includes a royalty-free license to add 


MORE THAN ONE LINKING OPTION! 
In addition, linking screenplay’s runtime unit is your choice! You can link 
HELP/Runtime to your applications and a license to make 25 copies of 
HELP/Popup. 











is at hand 







screenplay by interrupt or directly to your application. And if your compiler doesn't 
allow a direct link, you can take advantage of a dynamic load option for linking 
screenplay to your application. 

FULL CONTROL OVER KEY ASSIGNMENT! 

You can assign practically any keyboard key to serve as a specific cursor function 
and define exactly which keys will return control to your application. screenplay gives 
you the power to entirely reconfigure the keyboard for your program. 

POWERFUL, ONE-STEP PANEL PAINTING 

screenplay’s panel painting process is a "one-step" approach. There’s no need to go 
through a separate process to establish fields on your I/O panel. What's more, you can 
use any ASCII character in your screenplay panels. You also have full control over 
character attributes such as foreground and background color, intensity and blinking. 
EASY PANEL FILE MANAGEMENT! 

Panels are stored in an ASCII file which is compressed to save memory and disk 
space screenplay’s Panel Management Facility allows you to easily copy panels across 
and within files, rename panels, delete panels, test and print panel details. You can 
even print an image of the panel for your documentation! 

NO ROYALTIES / NOT COPY PROTECTED! 

screenplay’s panel control runtime unit, better known as The Panel Control Facility 
may be linked to your program without paying a dime in royalties. In addition, 
screenplay isn’t copy protected to make it even easier-to-use. The Panel Control Facility 
allows you to control almost every panel characteristic by using parameters. 

SUPPORTS MANY COBOL COMPILERS! 

Supports IBM COBOL, Microsoft COBOL, Realia COBOL, Ryan-McFarland COBOL 

}and Ryan-McFarland COBOL 8X; List Price $175.00, OUR PRICE $155.00 


PROFESSIONAL TOOLS 
FOR PROFESSIONAL 
PROGRAMMERS 
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Tools 
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LIST: $125 
OURS: $109 
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MDS, Inc. 207/772-5436 





Double Your C Language 
Programming Productivity 


& 


Instant-C is an incremental compiler for C that makes every aspect of C 
programming as fast as possible. Load your existing C source code into 
Instant-C. Whenever you change your code with Instant-C’s built-in full-screen 
editor, only the changed portions of your programs are recompiled. The 


Quelo Cross Assembler Packages are Motorola compatible. 
Each package includes a macro assembler, linker/ 
locator, object librarian, utilities for producing ROMable code, 
extensive indexed typeset manuals and produces S-records, 
Intel hex, extended TEK hex, UNIX COFF and symbol cross 
references. Portable source written in “C” is available. It has 
been ported to a variety of mainframes and minis including 
VAX, Sun, Apollo, Masscomp, and Charles River. Native ver- 
sions available for Amiga and Atari ST. 


68020 Cross Assembler Package 


Supports 68000, 68010, 68020, 68881and 68851. 
For CP/M-68K and MS/PC-DOS, $ 750 


68000/68010 Cross Assembler Package 
For CP/M-80, -86, -68K.and MS/PC-DOS, $595 


68000/68010 Simulator 


For MS/PC-DOS by Big Bang Software, Inc. 


SIM68K is a cost-effective software simulator for de- 
bugging 68000/68010 code on an IBM-PC or compatible, 


$285. Circle no. 302 on reader service card. 


Trademarks: CP/M, Digital Research; MS, Microsoft Corporation; Quelo, Quelo, Inc. 


HOURS 


8:30 A.M. - 8:00 P.M. E.S.T. 


800-421-8006 


fully automatic compilation process includes linking of your multiple 
modules, and therefore takes no link time. Instant-C compiles more than 
twice as fast as normal compilers. More importantly, compile time is 
proportional to how much code you change, not to the size of your entire 
program. With Instant-C, you willbe running your program within a few 
seconds after editing a change. 


Instant-C’s over 350 precise diagnostic messages help you understand 
immediately how to fix the problem. Instant-C shows any errors on the 
editor screen, with the cursor placed exactly at the trouble spot. 


Instant-C runs your program at compiled speeds with full run-time checking 
of pointer references and array indexes. Run-time checking catches prob- 
lems as they occur, when they are easiest to fix and understand. This 
checking reduces the number of times you need to modify and test your 
program. 


Instant-C has the best testing and debugging capabilities available. You have 
full access to the C language and to your program. At any time you can 
examine or modify variables (including locals), evaluate expressions or 
macros, and call functions interactively. You can examine and change your 
code, then resume execution. Use any number of conditional breakpoints. 
Instant-C’s visual debugging shows your source code, highlighting the line 
being executed. Instant-C supports multiple screens, virtual screens, and non- 
standard graphics devices. Instant-C’s data monitor stops execution when 
specified variables or memory areas are changed. 


Instant-C is compatible with Lattice 2.x, 3.x and Microsoft 3.0, 4.0. Get 
Instant-C’s superb debugging, run-time checking, and incremental 
compilation to double your C programming productivity. 


$495 
$379 


: P.O. Box 480 
Rational Natick, MA 01760 LIST: 
Systems, Inc. (617) 653-6194 OURS: 





THE PROGRAMMER’S SHOP™ 
128-D Rockland Street, Hanover, MA 02339 
Mass.: 800-442-8070 or 617-826-7531 12/86 
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STRUCTURED PROGRAMMING 
(continued from page 126) 


to conform with the standard Modu- 
la-2 syntax for absolute variables. 
More complicated types of absolute 
variables in Turbo Pascal may re- 
quire more hacking. The translated 
program has its FOR I := 1 TO J DO 
loop edited into FOR I := 0 TOJ—1DO 
to reflect the different string index- 
ing schemes. 


Creating Library Modules 
This discussion of translating Turbo 
Pascal programs into Modula-2 is not 
complete without considering the 
strong modular nature of Modula-2. 
Turbo Pascal programs use included 
files, as well as chained code seg- 
ments and overlays, to tackle large 
programs. Putting many of these pos- 
sibly reusable routines in library 
modules is indeed a sound decision. 

You can use the Translator to cre- 
ate library modules by following 
these steps: 


1. Create a single complete file from 
all the related included files. By com- 
plete, 1 mean that it does not rely on 
any external or further declarations 
or code. 

2. Enclose this code in an empty pro- 


Table 1: Telescoped code that performs error handling 


128 





gram. Add the program heading and 
an empty main body section. 

3. Compile the Turbo Pascal code 
with the compiler to make sure it is 
assembled correctly. 

4. Process the correct Pascal code 


through the Translator. This gives’ 


you a Modula-2 version of your ‘‘do- 
nothing’ program. 

5. Apply any hand-coded editing re- 
quired on the Modula code. 

6. Decide what to export from the 
module, and create the DEFINITION 
and IMPLEMENTATION modules ac- 
cordingly. 


The next time you ask a Turbo Pascal 
programmer, ‘Parlez vous Modula- 
2?” expect the answer to be “TRUE.” 


Open Loops in Modula-2 

You can use open loops in Modula-2 
to prevent “telescoped” error han- 
dling code. Table 1, below, shows a 
skeleton Modula-2 program that tests 
three error conditions. Notice how 
telescoped the code is. Table 2, below, 
shows the same program, but this 
time an open loop is used to enclose 
the main body. Each tested error con- 
dition uses an EXIT statement, which 
allows the rest of the main body to be 
on the same level regardless of the 
number of error conditions tested. 


END Test. 


¢ Statements *) 
_ IF ErrorCondition THEN EXIT END; 


The open loop ends with an IF state- 
ment that is guaranteed to exit. Nest- 
ed open loops can be used in a similar 
way to control multilevel errors. 


From Readers 

I received a short utility program for 
the IBM PC written in Modula-2 from 
James Janney, of Salt Lake City, Utah. 
The program, shown in Listing Nine, 
page 88, displays the status of the 
Caps-Lock and Num-Lock keys and 
allows you to change them. This is 
useful with keyboards such as the 
KeyTronic, whose LEDs get out of 
sync when yourun programs such as 
CrossTalk. Janney’s utility rectifies 
this situation; the only other remedy 
is to reboot. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and disk format (MS-DOS, Macintosh, 
Kaypro). 


DDJ 


(Listings begin on page 70.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 8. 


JODULE Test; 
. — " 


Reset error flags * : 

rrorCondition1 : = FALSE; 

rrorCondition2 : = FALSE; 
_ErrorCondition3 : = FALSE; 


(* Statements *) 


Fr ErrorCondition2 THEN : 
(*Statements*) 
IF ErorCanditionS TH EN EXIT END: 


(* Statements *) 
IF 1 > 0 THEN EXIT END; 
END; (* LOOP *) 


(* Error handling section *) 
IF ErrorConditioni THEN (* Statements *) 
ELSIF ErrorCondition2 THEN (* Statements *) 
ELSIF ErrorCondition3 THEN (* Statements *) END: 





Table 2: Using an open loop for cleaner code 
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NOW INTRODUCING VIRTUAL MEMORY SUPPORT 
BetterBASIC with the optional Virtual Memory Manager can 
now address 400,000,000,000 bytes of memory! 


BetterBASIC Application 
Development System $199.00 


The BetterBASIC Application Development 
System provides very close compatibility with 
PC-BASICA and GW-BASIC, yet provides numer- 
ous new and sophisticated language features such 
as: program Block Structures, recursive Procedures 
and Functions with local variables, structures, 
Records and Pointers and last but not least sup- 
port of large memory. 





BetterBASIC Application 
Development System $199.00 
The BetterBASIC Application Development 






PC-BASICA and GW-BASIC, yet provides numer- 
ous new and sophisticated language features such 
as: program Block Structures, recursive Procedures 
and Functions with local variables, structures, 
Records and Pointers and last but not least sup- 
port of large memory. 







Virtual Memory Manager $99.00 


The Virtual Memory Manager expands 

d Better-BASIC’s data space into the giga- 
byte range and finally breaks the 640k byte barrier 
for array sizes. Not only can you directly address 
all expanded memory supported by LIM/EMS 
memory boards, you can also address any RAM 
Disk, Hard Disk or even a Floppy Disk as if they 
were ordinary RAM. 


C-Link $99.00 
This software package allows BetterBASIC 
# to access C-language library functions from 
within BetterBASIC. Currently supported are 
Se and Microsoft C. 









Screen Design System $199.00 
q This package truly takes the drudgery out 
i of creating display screens and data entry 
screens. An interactive Screen Editor lets you 
“paint” your display screens exactly as you want 
them to appear in your program. The completed 
screens take the form of disk resident images. 
A run time library module provides many new 
BetterBASIC procedures and functions for inter- 
acting with the display screens to simplify the 
use of pop-up menus and data entry screens. 


# System provides very close compatibility with 


Btrieve™ Interface $99.00 


7 This is a high level BetterBASIC interface 
~ to the ever popular Btrieve™ file manager 
from SoftCraft. Instead of Assembly language calls 
_ this module provides high level BetterBASIC pro- 
gram access to all Btrieve™ functions. Use it to design 
your own database application in BetterBASIC. 





1 8087/80287 Math Module $99.00 


=4 This module allows you to use the 8087 

ae sual or 80287 co-processor to significantly accel- 
erate programs which are floating point calcula- 
tions intensive. 





| Decimal Math Module $99.00 


If you are a business programmer, you are 
ia a probably frustrated by the many roundoff 

problems caused by ordinary IEEE format floating 
point numerical operations. The BetterBASIC 
Decimal Math Module which offers variable preci- 
sion from 6 to 24 digits, drastically reduces roundoff 
problems in business applications. 





1 BetterTools™ $99.00 

| This is a collection of more than 150 useful 

4 extensions to BetterBASIC such as time 
and date computations, encryption and decryp- 
tion, low level file directory access, hyperbolic 
function and much more. No BetterBASIC pro- 
grammer should be without BetterTools™ 












Virtual Memory Manager- 
Network Version $250.00 


aad This version of the Virtual Memory Manager 
allows Virtual Memory to be distributed through- 
out a Local Area Network. It also provides File, 
Records and Field Locking to control access to 
shared data. 


Call our Toll Free Order Line 
1-800-255-5800 


BASIC. 


Summit Software Technology, Inc-” 
106 Access Road, Norwood, MA 02062 
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The SBI80 
Computer/Controller 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4 x 742” single board system. 





e 6MHz 64180 CPU 
(Z80 instruction superset), 256K RAM, 
8K Monitor ROM with device test, disk 
format, read/write. 
e Mini/Micro Floppy Controller 
(1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 3%'7 5%" 
and 8” drives). 
e Measures 4’’ x 7%’ with mounting holes 
© One Centronics Printer Port 
@ Two RS232C Serial Ports 
(75-19,200 baud with console port 
auto-baud rate select). 
© Power Supply Requirements 
+5V +/-5% @500 mA 
+12V +/- 20% @40mA 
® ZCPR3 (CP/M 2.2/3 compatible) 
© Multiple disk formats supported 
e Menu-based system customization 





$B180-1 
SB180 computer board w/256K 
bytes RAM and ROM monitor 


RENT NIE IE od ORL $299.00 
$B180-1-20 

same as above w/ZCPR3, ZRDOS 

and BIOS source............. $399.00 


-Quantity discounts available- 


ew 
COMM180-M-S 


optional peripheral board adds 
1200 bps modem and SCSI! 
hard disk interface. 


TO ORDER 
CALL TOLL FREE TELEX 
1-800-635-3355 643331 


For technical assistance or 
to request a data sheet, call: 


1-203-871-6170 


eS Micromint, Inc. 
4 Park Street 
Vernon, CT 06066 
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FORUM 
LETTERS 


(continued from page 12) 


Eratosthenes Sieve 

Dear DDJ, 

Regarding the Eratosthenes Sieve 
that accompanied the article ‘““High- 
Speed Thrills’ in the September 1986 
issue, the program reports 1,899 
primes in the range 2 to 8,191. This is 
incorrect. Actually, there are only 
1,028 primes in that range. 

I realize that the Sieve is used as a 
benchmark to test a system’s ability 
to handle arrays and loops and that 
the actual number returned is imma- 
terial. Still, it bothers me that people 
may be going around thinking there 
are 1,899 primes less than 8,192. Code 
Example 1, below, returns the cor- 
rect result. It runs just a little slower 
than the listing you published (after 






#define TRUE 1 
#define FALSE 0 
#define SIZE 8191 
char flags[SIZE+ 1]: 












main() 


{ 
inti, j, count, loops; 
PrintE( “Running. .. 
for ( loops =0; loops ( 
{ 
count = 0; | 
for(i=2;i(=SIZE . 
flags[i} = TRUE; 








? 


{ _ 
iftiflags[i}) 


{ 


fiags[j] = FALSE; 
x / _ 

count + 7: 
counter */ : 


(TC)n’ ); 
10- loops +7 )} 


i++) 


for(i =2;i(=SizEe -;i++) 
/* found a prime, */ 


/* "filter' out its multiples 





all, it’s filtering out more nonprimes). 
I’ve also included a loop at the end of 
my program that prints out the 
primes, just to prove that the pro- 
gram does find primes. This should 
be removed if the program is to be 
used as a benchmark. 

Robert V. Duncan 

P.O. Box 215 

Pottersville, NY 12860 


DDJ 


/* increment prime 





(/®endof tor j=. . .*/ 
\. /#endok fori=2.. .*/ 
} /* andof for loops ==0. . .*/ 
printf("%d primes, %d loops(TC)n', count,loops): 
/* let's take a look at our primes 
zero and one aren't prime, start at 2 
/* 2 
for (i = 2; 4 (= SIZE + i ++) 
it (£lagsi i) ) 
printf("%6d',i); 
print("(TC)n')-: 











Code Example 1: Eratosthenes Sieve prime number program inC 
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SAS Institute Inc. 
Announces 





Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the’ 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 


Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


i want to learn more about: 


(J the C compiler for MVS software developers 
() the C compiler for CMS software developers 
(J) the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 


Please complete or attach your business card. 


Name 
Title 


Company 
Address 
City 
Telephone 


Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 
27511-8000. Telephone (919) 467-8000, x 7000 














C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


Sinise Se AIP 
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SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. Lattice is the registered trademark of Lattice, Inc. PLINK86 and PLIB86 are trademarks of Phoenix Software Associates Ltd. 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute Inc. Printed in the USA. 
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(continued from page 14) 


Total cost $4.40 
Item onions 
Quantity 2.5 Ibs 
Unit cost $0.72/lb 
Total cost $1.80 


Would you not be somewhat puzzled 
about the rationale for that arrange- 
ment? I imagine that you would in- 
stinctively attempt to rearrange the 
list as shown in Table 1, right. Surely 
this is clearer, more obvious, easier to 
read, and less likely to hide an inad- 
vertent error. In fact, isn’t the ar- 
rangement in Table 2, right, even 
better? 

Assuming you agree, why then in 
Anderson's Modula-2 program are 
there 118 repetitions in the following 
form? 


WITH Table68K [i] DO 
Mnemonic := “ABCD”; 
Op := {15, 14, 8}; 
AddrModeA := ModeA {Rx911, 

RegMem3, Ry02}; 
AddrModeB := ModeB { }; 

END 


At the very least we should expect 
that 118 repetitions of the same struc- 
ture could be reduced to something 
such as: 


Table68Kli] := ‘‘ABCD’’, {15, 14, 8}, 
{Rx911, RegMem3, Ry02}, { }; 


be as clear, clean, succinct, and pre- 
cise as they would almost instinctive- 
ly be without it. As a proof without 
comment, Code Example 3, below, 
offers an example of what a pro- 
grammer would have done had he or 
she been forced to write the preced- 
ing code in assembly language. 
Blunted tools produce crude carv- 
ings, and furry language fosters 
fuzzy thinking. So if my comments 













: Quantity 


/ Item 
potatoes 3.2 Ibs 
| oranges 5.0 ibs 


_ onions _. 2.5ibs 





| potatoes 
oranges 
onions 


Table 2: An improved rearrangement of a grocery list 


 Table6sKk _ 


Table 1: A possible rearrangement of a grocery list 


about style and form are cogent, we 
ought to be able to find some defi- 
ciencies in Anderson's code. 

There are a couple of rather odd 
things about this code. As I under- 
stand it, it is used only to create a ta- 
ble of data on disk. It does this by 
building up the entire table in memo- 
ry, one record at a time, and then 
writing the entire table out to disk, 
one record at a time. I argue that it 


Unit Cost Total 
— $0.65/ib $2.08 

— $0.88/Ib © $4.40 

$0.72/Ib $1.80 


Unit Cost 
($/Ib) 


065 
0.88 
0.72 


Surely our ‘higher order” lan- 





Name Op AddrModeA _—s—CAddrModeB 
guage should allow us the benefits of | | sagepn (45, 14,8) (Rx911 “RegMem3 Ry02) { } ee 
parallel construction and avoid the | | — _ = 
need for excessive repetition of un- | | "App" {15, 14, 12} {OpM68D} (OpEAO5y} 
necessary words. With only the |/.. . -_.. -.-. i .«... ~~ 
smallest dash of literary license, we | | "UNLK" (14,11,10,9,6.4,3) @yo2) © |, 
really ought to expect something | | =  . a = 


such as the format shown in Code Ex- 
ample 2, right. To me this tabular 
form seems cleaner, much easier to 
comprehend, and much more likely 
to show up problems. The parallel 
construction encourages comparison 
and highlights errors. And even 
without these advantages, the result 
is at least 7,000 characters shorter and 
uses about 590 fewer lines, which, if 
nothing else, saves ten pages of 
printout. 

The point is this: Although Modula- 
2 has been designed to ‘force’ on 
programmers what is considered 
‘““‘best’’ form, it does not allow them to 





Code Example 2: A tabular format of Anderson's code 


 Table6sk: 

db ‘ABCD © 

dw 1100000100000000b, 0000000000000111b, 0000000000000000b 
— gb ADD 


dw 1101000000000000b, 0000001000000000b, 0010000000000000b 


Gb UNLK =~ 
dw 0100111001011000b, 0000000000000010b, 0000000000000000b 





Code Example 3: An assembly-language version of Anderson's code 
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would be better to write out each re- 
cord as it is created, thereby requir- 
ing storage for only one record rath- 
er than for 118 of them. This would 
give a shorter program, use less 
memory, run much faster (because 
no array indexing would be re- 
quired), and take no longer to 
compile. 

Even odder, Anderson’s current 
code builds a data structure at execu- 
tion time in a situation where all the 
data that goes into the structure is 
contained in the code at compile 
time. This is a little oblique. It would 
be more reasonable to declare the 


Tom Rettig’s Library © 


Prewritten Solutions to Programming Problems 


dBASE III PLUS Edition 


Advanced Extended Library Advanced Programmer’s Library 
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not even conscious of the absurdities 
they are creating. 
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has been most heralded as a step to- 
ward “improving” our program- 
ming, we regularly find the most bla- 
tant variances between what is 
considered ‘‘approved practice’ and 
the intuitive dictates of our linguistic 
common sense. 

Is there not something wrong with 
the direction in which we are being 
led? 
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PROLOG and the 

Future of Al 

The following is a continuation of the 
excerpt of a real-time conference that 
we published in January. The confer- 
ence was held by Borland Internation- 
al on CompuServe on July 26, 1986. A 
complete transcript of this three-hour 
on-line conference on AI and PROLOG 
can be found in DL6 of the Borland SIG 
on CompuServe (<GO BOR100>KEY- 
WORDS:CONFERENCE). 


Larry Krait, sysop of Borland SIG: 
Our panel of featured ‘speakers’ to- 
day includes Borland’s president, Phi- 
lippe Kahn; assistant professor Mark 
Chignell of USC; and Mike Swaine, edi- 
tor-in-chief of Doctor Dobb’s Journal 
of Software Tools. ...Here’s a ques- 
tion that sounds straightforward: 
What are theorem-proving 
algorithms? 


Philippe: Nothing, until now! The 
idea is that you could set up a system 
that would be a sort of auditing trail 
through algorithms—in the same 
way as people have tried to do auto- 
matic proofing of mathematical theo- 
rems. It’s great in the ivory tower but 
useless in proving or finding new the- 
orems. The four-color problem was 
not solved that way but rather 
through brute force. Some people 
have even questioned the validity of 
the proof because the algorithms used 
could not be proved thoroughly. 


Mark: We should make it clear that 
we are not saying it’s not useful to 
prove theorems. Logic programming 
requires theorem proving, of a sort, 
every time you make an inference. 
It's just the attachment of the auto- 
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matic verification that is a problem. 
Philippe: That's right. 


Larry: One more question before we 
proceed with questions from the 
floor: How is CD ROM technology go- 
ing to impact AI? And, what's the fu- 
ture of the PC and how will that im- 
pact AI? 


Philippe: Well, the biggest limitation 
of PCs now is the data storage size. 
The bulk of a knowledge base can be 
read-only because the machine 
seems now to have enough read and 
write storage capacity. Distributing 
large knowledge bases on CD ROMs in 
my opinion will greatly enhance the 
use of expert systems on PCs. Access- 
ing the information is another unre- 
lated question. The drivers have to be 
optimized to the type of data struc- 
ture used when mastering the CD 
ROM because keyword searches are 
inefficient for most AI applications. 
CD ROMs are going to add a lot to the 
power of the PC. 


Larry: Any comments from Mike or 
Mark before we conclude the panel 
phase of this conference and proceed 
with questions from the floor? OK, I'll 
take questions from the floor now. 
Go ahead Dan. 


Dan: Philippe, why would anyone 


designing an expert system want to 
use PROLOG rather than one of the ex- 
isting tools such as 1st Class, In- 
sight2+, or some of the more sophis- 
ticated KEE/M.1 type of tools? 


Philippe: It’s the idea of control. Bor- 
land will release—it’s no secret— 
some prebuilt shells that work on top 
of our implementation of PROLOG. 
But what really made the success of 
products such as dBASE from Ashton- 
Tate has been their programmabili- 
ty. And that is what you get when 
you start with the underlying imple- 
mentation language. You have the 
control and the full source! 


Dan: I understand and agree on the 
control issue, but it seems to me that 
many people who will want to de- 
sign expert systems are experts 


themselves, rather than designers. 
I’m using PROLOG for my own work, 
but I know a lot of people who aren't 
and I frequently have the argument, 
which is why I asked the question. 


Philippe: Yes, that’s true. That’s why 
we are working on additional tools. 
Take the example of dBASE. For an ac- 
counting system, for example, you 
need both the expert—the CPA—and 
the dBASE programmer if you really 
want to build something useful. As a 
matter of fact, it is the same thing with 
most spreadsheets that involve pro- 
gramming in some sense—if you do 
not wish to end up with a monster! 


Mark: I’m all for experts designing 
and implementing their own sys- 
tems. It may not be as tough as people 
think. I happen to think that high- 
school algebra is more difficult to 
learn than the basic technology of ex- 
pert systems. I ran a course this sum- 
mer at USC, and we had computer 
neophytes building rudimentary ex- 
pert systems in PROLOG. A continuum 
of utilities can be added on top of PRO- 
LOG to support expert system devel- 
opment. Why limit yourself to the id- 
iosyncrasies of a single shell? 


Larry: Chris is next. Go ahead, please 
Chris. 


Chris: With reference to the Fifth 
Generation Computer Project, Terry 
Winograd and Fernando Flores, in 
their book Understanding Computers 
and Cognition (Ablex, 1986), said: ‘“The 
grandiose goals, then, will not be 
met, but there will be useful spinoffs. 
In the long run, the ambitions for tru- 
ly intelligent computer systems, as 
reflected in this project and others 
like it around the world, will not bea 
major factor in technological devel- 
opment. They are too rooted in the 
rationalistic tradition and too depen- 
dent on its assumptions about intelli- 
gence, language, and formalization.”’ 
Will the panel please comment? 


Philippe: Do they mean that the ma- 
chine is always going to remain 
dumb but there will be some real use- 
ful technology that will come out of 
it? Just like the space shuttle? 
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(continued from page 134) 


Mark: It’s getting harder to separate 
our technology from our intellectual 
theories. I happen to think that the ra- 
tionalist approach may have a chance 
in the future. If you want to see an 
earlier view, which I think is rele- 
vant, see the philosopher Leibniz. 


Chris: Well, Winograd and Flores say: 
‘“Gadamer, Heidegger, Habermas, and 
others argue that the goal of reducing 
even ‘literal’ meanings to truth condi- 
tions is ultimately impossible and in- 
evitably misleading.’”’ And on page 132 
they add: “First there is a danger in- 
herent in the label ‘expert system.’ 
When we talk of a human expert we 
connote someone whose depth of un- 
derstanding serves not only to solve 
specific well-formulated problems, 
but also to put them into a larger con- 
text. We distinguish between experts 
and ‘idiot savants.’ Calling a program 
an expert is misleading in exactly the 
same way as Calling it ‘intelligent’ or 
saying it ‘understands.’ ” 


Philippe: OK, let’s stop calling these 
programs ‘expert systems” and call 
them “advisory systems. ”’ 


JRCooper: I'd like to direct a ques- 
tion to Philippe. It would appear that 
LISP is being considered the language 
of the past and that PROLOG is the lan- 
guage of choice for the future. Now, 
hybrid languages aside, there must 
be a pretty good reason why you de- 
cided to choose PROLOG over other AI 
languages. I recall an interview you 
did for Computer Language magazine 
last year in which your “vocal dis- 
dain for C’ was mentioned on the 
same page as it was said you had no 
plans for an AI language. The real 
question here is why PROLOG and not 
LISP or Smalltalk? 


Philippe: Well, we've already said 
use the right tool for the right pur- 
pose. To answer the rest of your ques- 
tion, I usually contradict myself a lot. 
My wife hates it! Also, I don’t disdain 
C, but I don't think it is a good hobbyist 
language. I believe that Pascal and 
Modula-2 are much better and more 
readable. In order to program well in 
C, you really need to know what you 
are doing. Pascal is more typed and 
structured for that purpose, and its 
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nested structures, in my opinion, of- 
fer more readability than C’s flat pro- 
cedure and function structure. 


JRCooper: OK, but was there a con- 
scious decision not to introduce a Bor- 
land LISP or Smalltalk? 


Philippe: Smalltalk is a truly great 
language, and its only drawback is 
that it’s big on a PC. No, there is anoth- 
er factor here, which is competitive- 
ness with other language houses. We 
felt that PROLOG would open the 
“brave new world of AI’ to our users 
and ourselves. That doesn't mean 
that we are not working on other lan- 
guages. Furthermore, we wanted to 
add a new flavor to a market that was 
becoming boring. I think that, had 
we not released Turbo Prolog, we 
would not have all this stir about Al 
right now! 


MFE: In your experience, is it diffi- 
cult for veterans of the old high-level 
languages to pick up PROLOG? I seem 
to be having problems. And, what's 
the best way to learn PROLOG? 


Mark: My students who are familiar 
with procedural languages have 
trouble ‘thinking backward” in PRO- 
LOG, as they put it. On the other hand, 
the transfer between LISP and PRO- 
LOG appears to be good because of 
common data structures and the use 
of recursion. I would suggest the fol- 
lowing readings. First, A PROLOG 
Primer by Jean Rogers. After that, 
look at what has become the classic— 
Programming in PROLOG by Clocksin 
and Mellish: I would also recom- 
mend two articles in Communica- 
tions of the ACM, December 1985, and 
the August 1985 issue of Byte. 


Mike: I'd also like to modestly recom- 
mend a DDJ, March 1985, article by 
David Cortesi for PROLOG beginners. 
And Clocksin and Mellish, of course. I 
conducted a little experiment in 
which I tried teaching PROLOG to a 
programmer and to a nonprogram- 
mer. The nonprogrammer had much 
less trouble catching on. 


MFE: P.S.—I’m just glad I can be 
floundering around with PROLOG 
without having to take out a second 


mortgage! Keep up the good work 
Borland. 


Larry: Go ahead Hannu. 


Hannu: [ think we need more hard- 
ware advancements before we can 
have true AI. How about it panel? We 
still only have 1s and Os? 


Philippe: You will probably still 
have 1s and 0s a few years from now. 
But I always say software is ten years 
behind hardware. I really think that 
it is now a software technology prob- 
lem. A lot of exciting things can be 
done without much new hardware. 
It is a weakness of programmers in 
many cases to think that they are lim- 
ited by the hardware. In France we 
say “a bad worker seems always to 
have the wrong tools!” 


Mark: Did you see the TI satellite sym- 
posium recently? I take great objec- 
tion to the idea that you have to get 
the best of everything to be able to do 
serious AI. Have you seen the segment 
on “Saturday Night Live” on the limits 
of the imagination? My feeling is that 
the main problem is the logic and rea- 
soning itself rather than the grunt of 
the machine. SoI guess I’m backing up 
Philippe’s comment. I think that good 
Al applications can be built on the AT, 
but maybe you have to think a bit 
more than letting a LISP machine set 
all the defaults for you. 


Hannu: | agree that the hardware is 
way ahead, but we do need the hard- 
ware to keep up with the goals we 
are trying to reach! And these are tru- 
ly self-pacing—learning and modify- 
ing codes and so on. 


Mike: New hardware is always fine, 
but it’s just hardware. A great chef 
can always use a new pot, though. 


Philippe: Yes, but the oldest pots 
tend to give the best flavor. Have you 
tried Teflon lately? 


Larry: I’m going to let MikeM jn here. 
MikeM: Thanks. I was wondering 
what all you users of PROLOG have 


been developing using the new pack- 
age? 
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(continued from page 136) 


Mark: So far I’ve been using it in an 
educational environment. Most of 
my students work in the aerospace 
industry in Southern California. 
They are building a variety of small 
expert systems in such areas as moni- 
toring data from a satellite, develop- 
ing systems to aid instrument land- 
ings in aircraft, and advising safety 
engineers on how to collect data. We 
are trying to build a frame represen- 
tation language, but it has proven 
tough with the typing that Turbo 
Prolog uses. 


Larry: We have a comment from Dan 
Kernan, one of our technical support 
people for Turbo Prolog. 


Dan K.: Strong typing should not 
cause a constraint on a frame-based 
system. A frame is generally a struc- 
ture with attributes and can be con- 
structed easily within our typed sys- 
tem. 


Larry: DanS, You're up next. Go 
ahead, please. 


Dans: My question is directed first to 
Mark, then to the others if they like. 
Can you see any micro implementa- 
tion of PROLOG being powerful 
enough to sit in the background of ex- 
isting programs’ databases, spread- 
sheets, or other applications and to 
invoke themselves by sensing when 
their users are in trouble? The prob- 
lem I see with today’s ‘‘help key” ap- 
proach is that users almost never 
know they need the help. Any com- 
ments on what role PROLOG and mi- 
cros might play here? 


Mark: I think Turbo Prolog is moving 
toward the kind of power you are 
talking about. The availability of a 
fast compiler is a big plus. I suspect 
that the best configuration may be to 
have PROLOG sitting on top of a re- 
trieval engine. We're looking at this 
at USC, and I know that Philippe has 
more to say on this topic. 


Philippe: Well what you are really 
talking about is a “lightning” type of 
system where something watches in 
the background and tries to help 
you—like asking ‘‘Do you really mean 
this, or do you mean these things?” It 
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is more programming style than an 
implementation language. As I said 
before, before it’s done it’s often 
called AI, once it works it’s called a 


program. 


JRCooper: This is for all panelists. 
There seems to be an interest in hy- 


brid languages that to some small de- 


gree address the old “‘best tool for the 


given application” issue. Now we are 
getting LISP systems that allow for ob- 


ject-oriented programming, Small- 
talk systems that come with PROLOG- 
like inference engines, and so on. 
Does anyone feel that there could 
someday be a language that provides 
a proverbial AI Swiss-army knife? 


Philippe: There really should not be 
any fanaticism in the choice of one 


implementation language rather 
than another. Asa matter of fact, that 


choice is becoming a whole new field 
of study: ‘‘What is the optimal imple- 
mentation language for a given appli- 
cation?” In the same way, maybe 
French is better for poetry, English is 


better for oral communications, and 


German for technicalities. 


Mark: It’s going to get to the point at 
which it’s not clear what the bound- 
aries between languages are. I don't 
see why we shouldn't use the family 
of languages concept with a certain 
amount of specialization in the func- 
tions of each language. This seems 
particularly suited to likely develop- 
ments in concurrent processing and 
parallel machines. 


Philippe: But the danger of not hav- 
ing specific tools is that of Ada. I don't 
believe you can efficiently be every- 
thing to everybody! 


Mike: The only reason there are 
Swiss-army knives is that pockets are 
of limited size. That doesn’t apply to 
computers, ultimately. 


JRCooper: No, but it does to my wal- 


let....One final question—I first 
started reading about AI around the 
turn of the decade. I was just getting 
into computers back then, and at that 
time the research in AI seemed to be 
toward literally making the machine 
think like we do. There were all kinds 


of theories about how our brains 
work and so on. It now seems like Al 
has become more pragmatic and 
seems to be focused primarily on ex- 
pert systems. Has the AI community 
dropped its lofty goals of a decade 
ago? 


Philippe: Well, you are right. At one 
time people thought that natural lan- 
guage interfaces would be the thing. 
It turned out, however, that the re- 
sulting commercial products—such 
as Clout, for example—never really 
captivated a following. Why? Be- 
cause typically the people using a da- 
tabase system and querying it with 
the help of a natural language query 
system did not know how to type 
really fast and a short-cut approach 
was more efficient. So as long as con- 
tinuous speech recognition is not 
commercially available at a reason- 
able price, this is yet a dream. Expert 
systems are a reality and are useful, 
however. That is why they are now 
the predominant part of commercial- 
ly oriented AI applications. 


Mark: Expert systems are a commer- 
cial application of what used to be AI. 
But expert systems work is limited 
and brittle. What I find intriguing is 
the recent work in machine learn- 
ing, where it looks like we may be 
getting a little closer to understand- 
ing induction, generalization, and 
learning by analogy. This is a very 
open-ended area and to my mind the 
truest of AI domains. 


Philippe: Oh, I agree 100 percent. 
This is the most exciting part! 


Mark: AI has a business and a re- 
search side to it. Sometimes the two 
tend to get confused! Expert system 
applications have been getting all the 
press, but people haven't forgotten 
the basic goals. There is interesting 
work on machine learning, and there 
are plenty of cognitive scientists, lin- 
guists, and so on who are using the 
tools and concepts of AI to explore the 
fundamental issues in the acquisition 
and utilization of intelligence. 


DDJ 
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MicroPlot, innovator of creative PC software programs is excited to 
announce PlotDev, the alternative to virtual device drivers and 
graphics tool kits for PC-DOS graphics programs. 


















e Installable PC-DOS device 
driver adds graphics command 
capabilities to any program 
language 


e Allows full screen PC-DOS 
command editing by unsticking 
the cursor 


e Provides user with all the 
intelligent alpha terminal 
commands of a DEC VT-100 







e Provides user with the graphics 
commands of the Tektronix 
4010/4014 and 4027 graphics 
terminals 







e Supports most popular e And much more ... 
boards and provides a bu 
graphics screen dump for 


printers 
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progiam with power! 
PC/POWER ™ 





APPLICATION DEVELOPMENT & MANAGEMEN T 
INTRODUCTORY OFFER: $95 Including s & h 


Runs on all 100% PC compatibles! 


Supports applications in a variety of languages through program calls 
- NOT a code generator 
—C, PASCAL, BASIC, ASSEMBLER 
© Screen painter/editor - create language and program independent data 
entry/display screens 
— Alphanumeric, Integer, Long, Floating point fields 
¢ Build your own POP-UP menu/selection windows under your program 


¢ Supports CGA, EGA, and monochrome display adapters 
e Indexing function for cataloging programs and applications provides easy 
management of ALL of your PC programs and packages. 

— Integrate existing programs into an application 

















e Non-interfering with memory 
resident or application programs 


MasterCard welcome. 


659-H Park Meadow Road Westerville, Ohio 43081 
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The Art of C Programming 


R. Jones and I. Stewart 


This new tutorial introduction to program- 
ming in C is intended for home-users and 
students who are new to the language. The 
book assumes a familiarity with a high-level 
language such as BASIC, and uses this as a 
starting point for discussing the distinctive 
features of C. Included are ‘‘case studies” of 
various aspects of the language. Clearly and 
humorously written, The Art of C Program- 
ming provides complete coverage of this ver- 
satile language. 

1987/approx 224 pp./42 illus./ 

softcover $18.50 

ISBN: 0-387-96392-8 
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educational 
discounts available. 


For a detailed PlotDev brochure or for ordering 
information call toll free 1-800-654-1217. Visa and 








(614) 882-4786 
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Software Engineering in C 
P. Margolis and P. Darnell 


This new introduction and reference manual for 
C contains many real-life examples and applica- 
tions as well as the new ASCII C standard. 
Contents: Introduction. C Program Structure. 
Data Types. Statements. Operators. Arrays and 
Pointers. Structures and Unions. Storage 
Classes. Functions. Preprocessor. Input and 
Output. Runtime Library. Appendices. 


1987/approx 350 pp./50 illus./softcover 
(Springer Books on Professional Computing) 
Available: June 1987 


Taming the Tiger 
Software Engineering and 
Software Economics 
L.S. Levy 


A new approach to software development 
with an economic justification based on the 
analytical techniques of managerial 
economics. The new approach modifies the 
life cycle of software development. Will be 
of special interest to researchers in economic 
theory as well as managers of software 
development and computer scientists. 
1987/approx 256 pp./9 illus./ 

softcover $28.00 

(Springer Books on Professional Computing) 
ISBN: 0-387-96468-1 





Ada™ is a registered trademark of the U.S. Government, 
Ada Joint Program Office 
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¢ Supplies EXEC function to pass control between programs 
—Even pass data between programs in different languages 

¢ Development utility applications included as samples 

¢ Entire package written in assembler; lightning FAST! 


COMPLETE DEVELOPMENT & RUNTIME SYSTEM ! 
$95 —* NO ROYALTIES ~—$95 


ORDERS OR INQUIRIES (800) 628-2828 ext. 712 





BEACON STREET SOFTWARE. INC. 


P.O. BOX 216 © BEACON HILL # BOSTON, MA 02133 









(Mass. residents add 5% sales tax) 






ORDER NOW! 






Circle no. 267 on reader service card. 






Also available. . . 


A Guide to Modula-2 

K. Christian 

1986/436 pp./46 illus./hardcover $34.00 
(Texts and Monographs in 

Computer Science) 


ISBN: 0-387-96242-5 


Ada® in Practice 

C.N. Ausnit, N.H. Cohen, J.B. 
Goodenough, and R.S. Eanes 
1985/216 pp./79 illus./softcover $25.00 


(Springer Books on Professional Computing) 
ISBN: 0-387-96182-8 



















Pascal User Manual and Report 
Revised for the ISO Pascal Standard 

Third Edition 

K. Jensen and N. Wirth 


1985/266 pp./76 illus./softcover $15.50 
ISBN: 0-387-96048-1 











To order, or for more information, please 
write to: Springer-Verlag New York, Inc., 
Attn: G. Kiely, 175 Fifth Avenue, 

New York, NY 10010 
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New York Berlin Heidelberg 
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helps save time, money and cut frustrations. Compare, evaluate, and find products. 








RECENT DISCOVERY 


PolyBoost - Run 2 to 10 times 
faster with software accelerator. 
Speeds disk access, screen display, 
keyboard input. PAC ie 8 


Al-Expert System Dev t 


Arity System-incorporate with C 
programs, rule & inheritance MS $ 259 
Experteach - Powerful, no limit on 


memory size. Samples PC.$ 399 
EXSYS MS $ 339 
Texas Instruments: 

PC Easy PC $ 439 

Personal Consultant PLUS PC $2599 


Al-Lisp 


Microsoft MuLisp 85 MS $ 199 
PC Scheme LISP - by TI PC. 5 SS 
TLC LISP - classes, compiler. MS $ 225 
TransLISP - learn fast MS $ 85 
Others: IQ LISP ($155), UNX LISP ($59), 
IQC LISP ($269), WALTZLISP ($139) 


Al-Prolog 


APT - Active Prolog Tutor - build 
applications interactively PCS 63 
ARITY Standard - full, 4 Meg 
Interpreter - debug, C, ASM PC $ 319 
COMPILER/Interpreter-EXE PC $ 699 
With Exp Sys, Screen - KIT PC $1129 
LPA MacProlog Complete - incremental 
compiler and an interpreter MAC $ 295 


LPA MicroProlog - intro MS $ 85 
LPA MicroProlog Prof. -full 
memory MS $ 349 


Prolog-86 - Learn Fast, Standard, 

tutorials, samples MS $ 89 
Prolog-86 Plus - Develop MS $ 229 
TURBO PROLOG by Borland PC $ 69 


Al-Other 


METHODS - SMALLTALK has 
objects, windows, PG 3. 69 

Q’NIAL - Combines APL with LISP. 
Source or binary. 

Smalltalk/V-graphics 


AtariST & Amiga 


We carry full lines of Manx, 
Lattice, & Metacomco. 


Amiga - LINT by Gimpel Amiga $ 79 
Cambridge LISP Amiga $ 200 
Lattice C ST, Amiga $ 139 
Lattice Text Utilities Amiga $ 75 
Megamax - tight, full ST $ 200 


FEATURES 


dBXL by Word Tech - complete interpreter 
clone. Adds windowing. Quicksilver, 
LAN support. Non-copy protected. 
PC$ 129 


C86 PLUS - New version has 70% 
faster execution speed, tight code 
full ANSI library. Support for source 
level debugger. ROMable. Library 
C source. Ask about benchmarks. 
MS $ 459 


700 + Programmer’s Products 
The Programmer's Shop carries every program- 
mer’s software product for MSDOS, PCDOS, 
CPM, Macintosh, Atari, and Amiga systems. 
We help you choose the best tools for you. Most 
popular products are in stock, available for quick 
delivery. We will gladly special order a product 
for you at no charge — just allow a few extra 
days for delivery. 
Need Cross Compilers, Translators, or the right 
Fortran compiler? Ask us. 
Our Services: 
+ Dealers Inquire 
« Newsletter 
* Help find a Publisher « Rush Order 
» Evaluation Literature FREE + Over 700 products 
+ BBS - 7 PM to 7 AM 617-826-4086 National Accounts Center 


Basic Development System - for 

BASICA; Adds Renum, more. PC $ 105 
Basic Development Tools by 

Sterling Castle PC $ 89 
Basic Windows by Syscom PC. -95 
BetterBASIC - all RAM, modules 

Structure. Full BASICA PC .$..139 

8087 Math Support PC. 3.89 

Run-time Module PC: $. 199 
Better Tools - for Better Basic PC $ 95 
CADSAM FILE SYSTEM-full MS $ 69 
GoodBas - maintain code PC $ 95 
LPI Basic - MS compatible UNIX $1100 
Prof. Basic - Interactive,debug PC $ 79 


8087 Math Support PC $ 47 
QuickBASIC V2.0-New interface PC $ 69 
TRUE Basic - ANSI PC $ 119 

Run-time Module PC $ 459 

Cobol 
Macintosh COBOL - full MAC $ 459 
MBP - Lev. II, native MS $ 819 
Microsoft COBOL MS $ 439 


Microsoft Cobol Tools - xref, debugger 
w/source support. Xenix $319 PC $ 209 


Professional COBOL PC $2695 
Realia - very fast MS $ 819 
Ryan McFarland COBOL MS $ 699 

COBOL-8X MS $ 995 
VS Workbench PC $3500 





Editors for Programming 


BRIEF Programmer’s Editor - undo, 

windows, reconfigure PC . Call 
EMACS by UniPress - powerful, 

multifile, windows Source:$929 $ 299 
Epsilon - like EMACS, full 

C-like language for macros. PC $ 155 
KEDIT - like XEDIT PC S105 
Lattice Screen Editor - multiwindow, 

multitasking Amiga $ 89 MS $ 109 
PC/VI - Custom Software new version 

fast MS $ 109 
Personal REXX PC $ 109 
PMATE - power, multitask PC 3 419 
SPF/PC - fast, virtual memory PC $ 139 
XTC - multitasking PC $= 79 


C Libraries-Communications 


Asynch by Blaise PC $--135 
Greenleaf Comm Lib. PC $ 149 
Multi-Comm - add multitasking, use 

w/Multi-C PC $ 149 
Software Horizons pack 3 PC 3.119 
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Uniware Cross Development Tools 
include 68000 C compiler. Development 
Package with compiler, assembler, 
link editor, and utilities, 17 cross 
assemblers for Intel. TI, Motorola, 

Zilog, etc. - relocatable, macros. MS Call 


C Language-Compilers 
AZTEC C86 - Commercial PC $499 
C86 by CI - 8087, reliable MS $299 


Datalight C - fast compile, good code, 
4 models, Lattice compatible, Lib 


source. Dev’rs Kit Pe Fe 
HOT C - new, intriguing PC $ 85 
Lattice C - from Lattice MS $299 
Mark Williams - w/debugger MS $369 
Microsoft C 4.0- Codeview MS $279 
Wizard C - Lattice C compatible, 

full sys. III, lint, fast. MS $359 


C Language-Interpreters 


C-terp by Gimpel - full K & R MS $229 
C Trainer - by Catalytix PC $ 89 
INSTANT C - Source debug, 

Edit to Run-3 seconds, .OBJs MS $379 
Interactive C by IMPACC Assoc. 

Interpreter, editor, source, 

debug. PC $225 
Introducing C-self paced tutorial PC $105 
Run/C Professional MS $179 
Run/C Lite - improved MS $ 97 


C Libraries-General 


Blackstar C Function Library PC $ 79 
C Essentials - 200 functions PC $ 83 
C Food by Lattice-ask forsource MS $109 


C Scientific Subroutines - Peerless MS $135 
C Tools Plus (1 & 2) PC $135 
C Utilities by Essential - Comprehensive 
screen graphics, strings, source. PC $137 
C Worthy Library - Complete, machine 
independent MS $269 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 
Greenleaf Functions-portable, ASM $139 
PforCe by Phoenix - objects PC $249 


C Libraries-Files 


FILES: C Index by Trio - full B + 
Tree, vary length field, multi compiler 
/File is object only MS $ 89 
/Plus is full source MS $349 
CBTREE- Source, noroyalties MS $ 99 
CTree by Faircom- noroyalties MS $319 
dbQUERY - ad Loc, SQL - based MS $159 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 


Object only - MS C, LAT, C86 $159 
Source - Single user MS $429 
Source - Multiuser MS $849 
dBASE Tools for C PC $ 65 
dbc Isam by Lattice MS $199 
dBx - translator MS $319 
w/source MS $519 


well 


Insight 2 + - Flexible expert 
systems shell has intrinsic dBASE 
operators, forward and backward 
chaining, transparent view of 


reasoning process. MS $389 
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provides complete information, advice, guarantees and every product for Microcomputer Programming. 
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‘=> C PROGRAMMER’S 
§_ SUPPORT PRODUCTS 


Professional tools shorten your development time, help 


you produce cleaner code, and write better user inter- 
faces. Your programming problems have already been 
solved. Call our C specialist TODAY: 





C Support-Systems 


Basic-C Library by C Source 
C Sharp - well supported. Source, 
realtime, tasks, state system PC $600 
C ToolSet - DIFF, xref, source MS $ 95 
The HAMMER by OES Systems PC $159 
Lattice Text Utilities MS $ 95 
Multi-C - multitasking PC $149 
PC LINT-Checker. Amiga $89 MS $107 
SECURITY LIB-add encrypt to MS C, 
C86 programs. Source $229 PC $115 
Quickshell - script compiler PC $349 


C-Screens. Windows. Graphics 


C Power Windows by Entelekon PC $119 
dBASE Graphics for C PC $ 69 
Curses by Lattice PC $ 99 
ESSENTIAL GRAPHICS - fast PC $209 


rm 3159 


GraphiC - mono version PC R27 
GraphiC - new color version PC $295 
Greenleaf Data Window PC $199 

w/source PC “$339 


Multi-Windows - use w/ Multi-C PC $295 


Screen Ace Form Master PC $195 
Vitamin C - screen I/O PC $129 
Windows for C - fast PC $159 
Windows for Data - validation PC $239 


ZView - screen generator MS $189 
Debuggers 


386 Debug PC’ $139 
Advanced Trace-86 by Morgan 

Modify ASM code on fly. Po S125 
CODESMITH - visual, modify 

and rewrite Assembler PC $107 
C SPRITE - data structures PC $139 
DSD87 - by Soft Advances PC $ 89 
Periscope I - own 16K PC $239 
Periscope II - symbolic, “Reset 

Box,” 2 Screen PC $119 


Pfix-86 Plus Symbolic Debugger 
by Phoenix - windows 
Showcase by Test Software 
Software Source by Atron - 
Lattice, MS C, Pascal, Windows 
single step, 2 screen, log file. MS $115 
w/Breakswitch $199 


i= 


TransLISP PLUS - with C INTERFACE. 
400 + COMMON LISP functions 
Optional UNLIMITED Runtime = $150 

PLUS for MSDOS $179 


PC $239 
PC $135 





HOURS 
8:30 AM - 8:00 PM EST. 
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ctree by Faircom 


dbe - for dBASE Il or III 
C Uulity Library by Essential 
ZView - screen management 






Order before 2/28/87 and mention this ad 
for these special prices. 


List Normal SPECIAL 
$395 $319 $279 
$295 $199 $179 
$250 $179 $159 
$295 $219 $189 
$250 $199 $169 
$185 $137 $119 
$245 $189 $169 


Fortran & Supporting 


Pre-C - (Lint-Like) 
Run C Professional 
Panel - screen management 


ACS Time Series MS $419 
Forlib + by Alpha - graphics and 

file routines, comm. MS $ 59 
MACFortran by Microsoft © MAC $229 
MS Fortran link to C MS $209 


No Limit - Fortran Scientific PC $119 
RM/Fortran - enhanced “IBM 

Professional Fortran” MS $389 
Scientific Subroutines - Matrix MS $149 
Statistician by Alpha MS $249 
Strings and Things - register, shell PC $ 59 


Multilanguage Support 


BTRIEVE ISAM MS $199 
BTRIEVE/N-multiuser MS $469 
CODESIFTER - Profiler. MS $ 99 


HALO Graphics - 115 + devices. 

Animation, engineering, business. 

Any MS language, Lattice, C86 PC $209 
Informix - by RDS PC $639 
Informix 4GL - application builder PC $799 
Opt Tech Sort - sort, merge MS $119 
PANEL - Create screen with editor, 

generates code. Full data validation, 


no royalties. Xenix $539, MS $219 
PolyLibrarian by Polytron MS $ 85 
PVCS Version Control MS $329 
QMake by Quilt Co. MS $ 84 
Rtrieve - Xtrieve option MS $119 


Screen Sculptor - slick, thorough, 

fast, BASIC, PASCAL. PC $ 99 
Xtrieve - organize database MS $199 
ZAP Communications - VT 100, 

TEK 4010 emulation, file xfer. PC $ 89 


Pascal and Supporting 


ALICE - learn Pascal, Turbo 
compatible, interpreter PC $ 68 
Exec - Chain Programs MS $ 85 
MetaWINDOW - graphics toolkit PC $135 
Microsoft PASCAL - faster MS $189 
MICROTEC PASCAL - 5 memory models, 
‘‘Iterators’’, 65 bit 8087 strings MS $665 
Pascal Pac with Tidy - formatter, 

utilities PC $ 69 
Pascal Tools - strings, screen PC $109 
Pascal Tools 2 - by Blaise MS $ 85 
Pascal 2 - tight, fast MS $329 
Pfas - Portable Isam MS $185 
TurboHALO - 150 routines, IBM 
EGA, Hercules, more 
USCD Pascal - native code 


PC $ 99 
MS $ 69 


Call for a catalog, literature, advice and service you can trust 


800-421-8006 


THE PROGRAMMER’S SHOP™ 
128-D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 12/86 






RECENT DISCOVERY 


C Scientific Library - 300 + C functions 
with source, no royalties includes matrix 
and vector, eigen system analysis, 
statistics, probability, regression, graphics 
support, MUCH more. PC 3245 


OtherLanguages — 


APL*PLUS/PC PC $ 469 
Artek ADA Compiler - DOD standard 

minus multitasking PC $ 469 
CLIPPER-dBASE Compiler MS $ 429 


Correct FORTH - ROMable PC $ 80 
ED/ASM - 86 by Oliver PC S83 
Lattice RPG II Compiler PCS. 719 
MacASM - fast MAC $ 99 
MasterForth - Forth °83_ MACor PC 
Microsoft MASM - faster MS $ 98 
Modula 2 by Volition Systems MS $ 250 
Modula-2/86 Compiler by Logitech 

w/ 8087 ($ 99), 512K ($145). PC $ 62 
Pasm - by Phoenix MS $ 109 
SNOBOL4 + - great forstrings MS $ 85 
Turbo Edit/ASM - by Speedware PC 


Xenix-86 & Supporting | 


Basic - by Microsoft $ 239 
Cobol - by Microsoft $ 639 
Fortran or Pascal - by Microsoft $ 439 


MicroFocus Lev. I] Compact COBOL$ 795 
Xenix Complete System $1049 


Other Products 





386 Assembler/Linker PC $ 459 
ASMLIB - 170+ routines PC- $5135 
BSW Make - like UNIX make MS $_ 85 


Dan Bricklin’s Demo Program PC $ 59 
dBrief - Customize BRIEF for dBASE 

development. with BRIEF $275. PC $ 95 
H Test/H Format - XT Fix PC $ 89 
Help/Control - on line help PC d 2125 
Interactive Easyflow-HavenTree PC $ 129 
Link & Locate - tools to work with 

Intel and Tektronix projects. MS 
LMK - like UNIX make MS 
Microsoft Windows i. 
Software Development Kit re 
MKS Toolkit - Unix, vi, awk PC 
PDisk - cache, tree PC 
PMaker - by Phoenix ig 
Polymake by Polytron MS 
PS MAKE by UniPress MS 
RPG II - by Lattice PC 
SECRET DISK by Lattice PC 
SET:SCIL - manager revisions PC 
Shrink/Shrinkem - put more files 

on disk with spacemaker PC 
SoftEst - Manage projects. MS 
Synergy-Create user interfaces MS 
Texsys - control source MS 
Tom Rettig’s Library- dBASE PC $ 89 
Visible Computer: 8088 - Simulates 

demos or any .exe. com, Debugger. 

350 pg. tutorial, unprotected PC $ 65 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about COD and POs. Formats: 
3" laptop now available, plus 200 others. UPS surface shipping add $3/item. 
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“The scope and detail of services you provide are 
exemplary — it’s obvious you have given a lot 
of thought to what information people need. . . 
For someone like myself, critical appraisals of 
software and comprehensive collections of offer- 
ings such as you have are really useful.” 
A. Bruce Cyr 
Foundation of American College 
of Health Care Administrators 
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Modules in True BASIC 

Two years ago, John Kemeny and 
Thomas Kurtz (the creators of BASIC) 
and a group of young enthusiastic en- 
trepreneurs launched True BASIC, an 
implementation of BASIC that accesses 
up to 640K of memory and provides 
structured code constructs (some even 
out-muscle Pascal and Modula-2) 
while maintaining simple data 
types—giving programmers both 
numbers and strings! True BASIC 
dared to introduce structured code 
into a microcomputer BASIC dialect. A 
year later Microsoft launched its 
QuickBASIC compiler, which extends 
the syntax of BASICA in the same di- 
rection as that of True BASIC. The sec- 
ond version of QuickBASIC adds a few 
more extensions. In addition, both 
True BASIC and QuickBASIC support 
external libraries. Last November, 


Borland International announced | 


Turbo BASIC, which, not surprisingly, 
also has structured code features. 
Then, in the same month, Kemeny 
and Kurtz released Version 2.0 of True 
BASIC, which supports modules and 
such features as the ability to load li- 
braries and modules into memory. 
We asked Dr. John Kemeny about 
the importance of modules in True 
BASIC. His answer was: “First, you 
have to talk about modules and work 
spaces together—I didn’t realize, at 
first, the importance of work spaces. 
I think it’s these two features togeth- 
er that make True BASIC 2.0 exciting 
for me. No matter how good a lan- 
guage is, there are always more fea- 
tures you would like to add. With 
modules and work spaces, True BA- 
SIC really becomes an extendable lan- 
guage. Implementing separately 
compiled libraries was step 1. Imple- 
menting modules was the next logi- 
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cal step. Using modules, the main 
program can be truly ignorant of 
what is happening within the li- 
brary. Routines that used to take 20 
parameters now take 3, and code 
seems more focused. Loading mod- 
ules into a work space gives you the 
speed and immediacy that I always 
liked about BASIC. My functions, im- 
ported from modules and libraries, 
seem to be built-in—I don’t need to 
declare them. I can concentrate on 
the code portion I am working on 
and take the rest for granted in this 
part of the environment.” 

True BASIC modules allow more so- 
phisticated interaction of routines 
and data. We'll now describe briefly 
the components of a module and give 
a short example. 


MODULE Factorial _ 


Modules enable you to declare 
three scope levels for variables. First, 
the PUBLIC declaration lists the names 


of all global variables that can be ex- 
ported. These variables can be ac- 
cessed by any routine within the 
module and by any program that 
uses that same module. In contrast, 
the SHARE declaration lists the vari- 
ables that are accessible only by the 
routines within the module. More- 
over, shared variables are static, en- 
abling them to retain their values be- 
tween calls to different module 
routines. Module developers can thus 
use shared variables to create and 
maintain data structures that are in- 
visible to client programs. The third 
declaration, PRIVATE, lists variables 
that are local to the routines in which 


_ PUBLIC Last_Fact !Global variable 


PRIVATE Ba 


Number !Local variable 


DECLARE DEF Bad_Number !Function declaration 
.E Fact_Array(30), Product, MAX! Local static variables 


_ ietMAx= 30 
_ let Last_Fact = Bad_Number 
let Product = Bad Number 


IF MAX > 30 THEN MAT REDIM Fact_A 


let Fact Array(1) = 1 
FOR TI = 2 TO MAX 


. Initialize module 


rray(MAX) !Adjust array size — . 


let Fact_Array(i) = I * Fact_Artay(I—1) 


DEF Bad_Number = —1.0E+200 


DEF Fact(N) _ 
IF (INT(N) —N) < >0 THEN 
let Fact = Bad_Number 
ELSE | 
let Last_Fact = Product 


IF N <= MAX THEN 


-- EXPORTED ROUTINES -. 


let Product = Fact_Array(N) 


ELSE 


‘let Product = Fact_Array (MAX) 


FOR I = MAX+1TON 


let Product = I * Product 


NEXT I 


END IF 

let Fact = Product 
END IF 
END DEF 


END MODULE 





Code Example 1: Sample True BASIC module 
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they appear—routines listed in these 
declarations cannot be exported. 
Module initialization is also avail- 


able and can be used to assign values | 
to variables, open file buffers, exe- | 


cute module routines, and so on. 
Modules are automatically initialized 
just before a client program starts 
running. 

Code Example 1, page 142, shows a 
simple module, Factorial, which pro- 
vides a routine to calculate factorials. 
It is customized such that the first 30 
factorials (assumed to be in the range 
most frequently used) are stored in a 
local static array. A factorial of up to 
30 is simply recalled from memory, 
and factorials for higher numbers 
are calculated. The PUBLIC variable 
Last_Fact returns the last valid facto- 
rial obtained. It is accessible to the cli- 
ent program. The PRIVATE function 
Bad_Number is local to the module 
and works by returning a large nega- 
tive number if the factorial of a non- 
integer is requested. The SHARE dec- 
laration lists the array Fact_Array, 
which stores the first 30 most fre- 
quently used factorials. The scalar 
MAX stores the upper limit of the fac- 
torial array. The values of the array 
are assigned during the module ini- 
tialization phase. During that same 
phase, the array may be expanded if 
necessary. You can easily customize 
the program by assigning a value 
other than 30 to MAX. Notice that 
function Fact calculates the factorials 
of numbers greater than 30, starting 
with Fact_Array(MAX). 

BASIC is back on its feet. The lan- 
guage written off and belittled by 
many is making a comeback not to be 
taken lightly. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 10. 
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The Advanced Programmer's Editor 
That Doesn't Waste Your Time 


e Fast, EMACS-style commands—completely reconfigurable 
e Run other programs without stopping Epsilon—concurrently! 


e C Language support—fix errors while your compiler runs 

e Powerful extension language  e Great on-line help system 
e Multiple windows, files e Regular Expression search 
e Unlimited file size, line length e¢ Supports large displays 

e 30 day money-back guarantee e Not copy protected 


Only $195 
LUGyar~ul 


Software Ltd. 


5740 Darlington Road 
Pittsburgh, PA 15217 








UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 
assistant — C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 
too. 

Source code in standard K&R C is included; 
and you are welcome to use it with any compiler 
(UNIX compatible) and operating system you 
choose. 


12 Time Savers 


DIFF - Compares text files on a line-by-line 
basis; use CMP for byte-by-byte. Indispensable 
for showing changes among versions of a 
program under development. 

GREP - Regular exp.. ssion search. Ideal for 
finding a procedural call or a variable definition 
amid a large number of header and source 
files. 

FCHART - Traces the flow of control between 
the large modules of a program. 

PP (C Beautifier) - Formats C program files 
so they are easier to read. 

CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 


The C Programmer's Assistant 


C TOOLSET & 


for IBM PC/XT/AT’s or compatibles 


Circle no. 135 on reader service card. 





CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 


C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 
risk-free for only $95. 


Solution 
Systems ™ 


335-D Washington St., 
Norwell, MA 02061 
(617) 659-1571 





Circle no. 152 on reader service card. 
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Professional Programming Products 


et 


PC-WRITE™ text editor, and 


for Microsoft C, PASCAL, FORTRAN, and Assembly Language 


= aA 
wae |S 


SOURCE CODE 


PROGRAMMERS AND SOFTWARE DEVELOPERS - LOOK AT THESE PRODUCTS! 


NO ROYALTIES REQUIRED 





e Int. driven asynch. support. 


ASMLIB 
The Programmer's Library 


A Multipurpose set of over 200 Assembly Language sub 
routines supplied in the form of a linkable library. \ 


Virtual disk file handling. 


Graphics on EGA, herc. and CGA, 8 
Floating point math and tri cones with 8087 support. 
Installable keyboard.actWated programs are easily written 


with ASMLIB's ‘5 unctions. 
Plus much cn more. 


Supplied With complete source code. 


Only *149°° Complete 


asmTREE 
The Programmer's B+Tree Data File 
Management System oS 


¢ Acomplete single/ multiuser database managsment system 


written entirely in Assembly cohaulaeaie ste Lattice “C” 
or Assembly Language proarens Capabilities. 


¢ Up to 256 users. 


Up to 256 index and data fag ° 


e Multiple key types. 


¢ Duplicate an 


Multiple noes rae file. 
lable length keys. 


¢ Virtual fila h ndling 


Plusww&th, much more 


¢ Supplied with complete source code. 


Only *395° Complete 


NET-TOOLS - Network Programming Tools 





fast and easily. 
xA multitude of subroutines allow your program to handle all network tasks directly. 
*xRedirect Local Devices simply and easily with a single function call. 


«Send and Receive disk files with error detection. Issue a single call to NET-TOOLS, and it will 
automatically send a file of any length to a NET-TOOLS receiver. 


*Send and Receive Messages with automatic retries and error detection. Both the datagram 
and session protocols are available to your program. 


*xCOMPLETE SOURCE CODE IS PROVIDED - written in assembly language. 
ONLY $149.00 Complete 


BC ASSOCIATES 


3261 No. Harbor Blivd., Suite B 
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Fullerton, CA 92635 


1-800-262-8010 


in Calif. Call 
(714) 526-5151 


NET-TOOLS allows you to write programs for ANY NETBIOS compatible local area network - 


*FREE Assembly Language SOURCE CODE ! 


Outside CA, call TOLL FREE 1-800-262-8010 


USE YOUR VISA OR MASTERCHARGE - S @® 


All prices include UPS shipping within continental United 
States. Outside U.S. please add $10 per package. Calif. 
residents please add 6.5% sales tax. 


Circle no. 182 on reader service card. 
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IF YOU NEED $5,000. . .$20,000 EVEN UP TO $500,000 TO 
START A NEW BUSINESS OR TO EXPAND AN EXISTING 


FIRM— THEN READ WHY YOU TOO WILL CALL THIS 
INCREDIBLE MONEY RAISING 


BUSINESS OPPORTUNITY SEEKERS’ LOANS MANUAL 
‘‘The Small Business Borrower’s Bible ’ 


Practically prepares the loan application for you line-by-line...the “proper” way. 
All properly prepared applications are processed faster...no red tape! 


Guaranteed Loans...Direct Loans...and Immediate Loans are available now! 
Most men and women seriously interested in starting their own business are eligible to apply — including those who already own a business and need 
capital fast for expansion...or to stay afloat...even if they've been flatly reftused by banks and turned down elsewhere! Yet, too many never qualify, simply 
because they do not know how to “properly” prepare the loan application... 





a 


ia 
LOAN DOLLAR 
YOU GET 


£0108 4332 
AND USE TO 
OPERATE 
YOUR BUSINESS 








In order to help those people Still there are those who SOCOOOSCOHZOOOCECOOCOOCO So ewenen cee 
applying for these guaranteed and declare: GUARANTEE #1 #2 >. 


Even after 15 days — here's how 
you are still strongly protected @ 

if you decide to keep the @ 
manual — and you apply for an @ 
SBA Loan anytime within 1 
year your loan must be @ 
approved and you must actually @ 
away — just return it for a full receive the funds or your money @ 
and prompt refund will be refunded in fuil 3 
SOOO OSSOHSOSSOSOOSOSOSS SOSSSSSOSSOSOOSCSECS 
Only because we are so confi- 
dent that this is a fact do we dare 
make such a strong binding 
seldom-heard-of Double 
Guarantee. No stronger 
guarantee possible! 


Simply — look over this cae 
effective money raising loan 
preparation assistance manual 
for 15 days — and. then. if you 
are not convinced that it can 
actually help you obtain the 
Business Loan you need right 


direct loans fill out their loan 
applications the “right way” our 
business research along with 
diligent compilation and effective 
efforts, has successfully assem- 
bled and published a comprehen- 
sive, easy-to-follow seminar 
manual: The Business Opportunity 
Seekers’ Loans Manual, that will 
quickly show you practically everything 
you'll need to know to prepare a loan 
application to get federally 
Guaranteed and Direct Loans. 


“.../ need money right now...and 
small business government loans 
take too darn long. It's impossible 
to qualify. No one ever gets one of 
those loans.” 

Or you may hear these 
comments 

“...My accountant’s junior 
assistant says he thinks it might be 
a waste of my time!” “Heck, there's 
too much worriesome paperwork 
and red tape to wade through!” 

Frankly — such rantings and 
ravings are just a lot of “bull” 
without any real basis — and only 
serve to Clearly show that lack of 


interested in helping you start a 
business that will make a lot of 
money. it's to their advantage — 
the more money you make the 
more they stand to collect in taxes. 
in fiscal 1986, our nation’s good old 


Here are just some of the many 
important benefits the Business 
Opportunity Seekers’ Loans Manual 


provides you with: 
® acompletely filled in sampie set 
of actual SBA loan application 
forms, ali property filled in for 
you to easily follow—aids youin 
quickly preparing your own 
loan application the right way. 
Each line on the sample appili- 
cation forms is explained and 
illustrated in easy-to-under- 
stand language. 
¢ fast application preparation 
procedures for getting loans for 
both new start up business 
ventures and established firms. 
¢ advises you on how to properly 
answer key questions neces- 
sary for loan approval and in 
order to help avoid having your 
application turned down—gives 
you advice on what you should 
not do under any circumstances. 
e what simple steps you take to 
guarantee eligibility—no matter 
if you do not presently qualify. 
© where you can file your appii- 
cation for fastest processing. 
At this point the most important 
question you want answered is 
Just where is all this loan money 
coming from? Incredible as it may 
sound—these Guaranteed Loans. 
Direct Loans...and Immediate 
Loans are indeed available right 
now — from the best. and yet, the 
most overlooked and frequently 
the most ignored and sometimes 
Outright ridiculed . “made-fun-of” 
source of ready money. fast 
Capital. in America — THE 
UNITED STATES GOVERNMENT 
Of course. there are those who 
upon hearing the words “UNITED 
STATES GOVERNMENT will 
instantly freeze up and frown and 
Say 
only minorities can get small 
business loan money from the 
government!” 
Yet. on the other hand (and 
MoOSt puZzZling) others will rant on 


aaa AA Re hee et EE ee w a e ee ere fe mete i iyars 


knowledge...misinformation...and 
and not quite fully understanding 
the UNITED STATES GOVERNA- 
MENT'S Small Business Adminis- 
tration’s (SBA) Programs have 
unfortunately caused a lot of 
people to ignore what is without a 
doubt — not only the most 
important and generous source of 
financing for new business start 
ups and existing business 
expansions in this country — but 
of the entire worid! 

Now that you've heard the “bull” 
about the United States Govern- 
ment’s SBA Loan Program — take 
a few more moments and read the 
following facts: 

e Only 9.6% of approved loans 
were actually made to minorites 
last year 

e What SBA recognizes as a 
“small business" actually 
applies to 97% of all the 
companies in the nation 

e Red tape comes about only 
when the loan application is 
sent back due to applicant not 
providing the requested infor- 
mation...or providing the wrong 
information 

e The SBA is required by 
Congress to provide a minimum 
dollar amount in business loans 
each fiscal year in order to law- 
fully comply with strict quotas. 
(Almost 5 billion this year) 


Yet. despite the millions who 
miss Out — there are still literally 
thousands of ambitious men and 
women nationwide who are pro- 
perly applying — being approved 
— and obtaining sufficient funds 
to either start a new business, a 
franchise. or buy out or expand an 
existing one. Mostly. they are all 
just typical Americans with no 
fancy titles. Who used essentially 
the same effective know-how to 
fill out their applications that you ll 
find in the Business Opportunity 


generous “uncle” will either lend 
directly or guarantee billions of 
dollars in loan requests. along witn 
technical assistance and even 
sales procurement assistance. 
Remember. if you don't apply for 
these available SBA funds 
somebody eise certainly will. 

Don't lose out — now is the best 
time to place your order for this 
comprehensive manual. It is not 
sold in stores. Available only by 
mail through this ad, directly from 
Financial Freedom Co., the ex- 
clusive publisher, at just a small 
fraction of what it would cost for 
the services of a private loan 
advisor or to attend a seminar. 

For example: 

Initially, this amazing Guaran- 
teed and Direct Loans Manual was 
specially designed to be the basis 
of a Small Business Loan Seminar 
— where each registrant would 
pay an admission fee of $450. But 
Our company felt that since the 
Manual’s quality instructions were 
So exceptionally crystal-clear that 
anyone who could read. could 
successfully use its techniques 
without having to attend a seminar 
cr pay for costly private loan 
advisory assistance services. 

Therefore, for those purchasing 
the manual by mail, no3 day class. 
no course and accommodations 
are required. And rather than $450 
we could slash the price all the 
way down to just a mere $20 — a 
small portion of a typical serflinar 
attendance fee — providing you 
promptly fill in and mail coupon 
below with fee while this special! 
“seminar-in-print” manual offer is 
still available by mail at this rela- 
tively low price! 

Remember. this most unique 
manual quickly provides you with 
actual sample copies of SBA Loan 
application and all other required 
forms—already properly filled in 
for you to easily use as reliably 


Of course, no one can guarantee 


that every request will be ap- 
proved — but clearly we are firmly con- 
vinced that any sound business re- 
quest properly prepared—showing a 
reasonable chance of repayment and 
submitted to SBA—will be approved. 


THOUSANDS ARE 
PROPERLY APPLYING 
AND BEING APPROVED. 
HERE’S YOUR CHANCE 
TO JOIN THEM! 


FREE BONUS 


If you order your manual 
today you Il receive a valuable 
treasury of fast. easy. low- 
Capital and highly profitable 
business programs worth forty- 
five dollars — yours abso- 
lutely free! 


100% tax deductible as .a 
business expense. Don’t delay — 
order your copy today! 









NO RISK LOAN OPPORTUNITY FORM Gam @ 


i ATU Tg 


meee de Bet 
i ASSISTANCE FOR LOAN APPROVAL 





Please rush me 


plus $3.00 handling and shipping. 


| am fully protected by the two strong 
guarantees above. I’m ordering today 
-— Sol can receive FREE - the valuable 
x treasury of fast, easy, low-capital and 
highly profitable business programs 
... worth forty-five dollars — mine free 
to keep even if | decide to return the 


manual for a full refund. 
R LJ Enclosed is Full Payment 


(] Cash (! Check ©) Money Order 


Send payment with order. 
i Name 





Please Print Clearly 
Address 


copies of 
i “Business Opportunity Seekers’ 
: Loans Manual” each at a $20 fee 








and on and on that Seekers’ Loans Manual. accurate step-by-step guides— 3 
dont even try. it’s just thus offering you complete City 
impossible — all those Business So dont you dare be shy about assurance that your application 
Lcans Programs are strictly for applying tor and accepting ier will be properly prepared. and State Zip 
t governmen thereby immediately putting you 
the Chryslers. the Lockheeds. th guaranteed and direc : 
y eeds. the loans Curiously enough. the on the right road to obtaining fast q MAIL TO: 


big corporations... not for the /ittle 
guy or small companies - etc 





government is actually very much 


No red-tape loan approval 


GUARANTEED YOUR LOAN MUST BE APPROVED ... OR MONEY BACK — ONLY A 


SMALL PRICE TO PAY FOR THE LOAN YOU CAN GET ... NO RISK AND NO HASSLES. 
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ORDER 
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OF INTEREST 





Languages 

A new Modula-2 compiler for PC-DOS 
and MS-DOS is available from Farb- 
ware. The product is a complete na- 
tive code compiler, code generator, 
and run-time package. It implements 
the full Modula-2 language, including 
REALs and DECIMALs, and a compre- 
hensive PC-DOS system interface. The 
unprotected program sells for $89.95. 
Reader Service No. 16. 

Farbware 

1329 Gregory 

Wilmette, IL 60091 

(312) 251-5310 


A PROLOG for the Macintosh has been 
announced by Advanced A.I. Sys- 
tems. AAIS PROLOG provides efficient 
methods of matching (or unification) 
and rule retrieval and allows each 
section of code to be tested as it’s 
keyed in. Other features include Ed- 
inburgh syntax; compatability with 
DEC 10/20 PROLOG, C-PROLOG, and 
Quintus PROLOG; a package system 
for multiple memory-based data- 
bases; and a PROLOG pretty printer. 
Debugging facilities include an exten- 
sive interactive debugger, illegal-ar- 
gument checking, and unknown- 
function checking. AISS PROLOG 
requires a Macintosh with at least 
512K RAM and costs $150. Reader Ser- 
vice No. 17. 

Advanced A.I. Systems Inc. 

P.O. Box 39-0360 

Mountain View, CA 94039 

(415) 961-1121 


Version 2.0 of Kyan Software's Pas- 
cal for the Apple is now available. 
This version is a fully validated imple- 
mentation of ISO Pascal and runs on 
any Apple II with 64K RAM. Kyan Pas- 
cal includes a full-screen text editor, a 
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native code compiler, a macro-assem- 
bler, utilities, and several Pascal ex- 
tensions. The built-in macro assem- 
bler allows programmers to add in- 
line assembly-language source code to 
their Pascal programs. The unprotect- 
ed software is priced at $69.95. An ad- 
vanced version of the software called 
Kyan Pascal Plus is priced at $99.95. 
Reader Service No. 18. 

Kyan Software 

1850 Union St., #183 

San Francisco, CA 94123 

(415) 626-2080 


Computer Innovations has released 
a new C compiler, C86PLUS, which is 
based on a technology that applies ar- 
tificial-intelligence techniques to pro- 
duce highly optimized code. C86PLUS 
takes advantage of newer, more pow- 
erful hardware architectures, such as 
Intel’s 80286 and 80386 microproces- 
sors. The program runs the Sieve 
benchmark 20 percent faster than 
does Microsoft C, Version 4.0, and is 70 
percent faster than the current C86, 
Version 2.3. C86PLUS runs on the IBM 
PC, PC/XT, PC/AT, and compatibles and 
sells for $497. Reader Service No. 19. 
Computer Innovations 

980 Shrewsbury Ave. 

Tinton Falls, NJ 07724 

(201) 542-5920 


The Software Factory has intro- 
duced OPAL, a full-function interpre- 
tive language for PC application de- 
velopers. OPAL integrates itself with 
DOS and applications running under 
DOS and offers a high degree of pro- 
gramming capabilities. OPAL sells for 
$169. Reader Service No. 20. 

The Software Factory Inc. 

15301 Dallas Pkwy., Ste. 750 LB 44 
Dallas, TX 75248 

(214) 490-0835 


CET Technology has released CET 
BASIC, a compiled application devel- 
opment language for Intel-based 
Unix and Xenix systems. The CET BA- 
SIC compiler is compatible with OA- 
SIS, THEOS, and UX-BASIC. CET BASIC 
programs can be intermixed with 
programs and subroutines in other 
languages. Additional features in- 
clude multiuser support for ISAM, di- 
rect and sequential files, terminal in- 


dependence, error trapping, 
program chaining, and COBOL-like 
formatting. The CET BASIC Compiler 
sells for $695. Reader Service No 21. 
CET Technology Inc. 

5405 Garden Grove Blvd., Ste. 160 
Westminster, CA 92683 

(714) 895-4345 


PL/PC, anew programming language 
from Creative Computer Software, 
is based on APL with Modula-2 con- 
trol structures. It offers an integrated, 
interactive programming environ- 
ment and a spreadsheet-like data edi- 
tor. Structured programming is sup- 
ported, and English keywords are 
used instead of APL symbols. Debug- 
ging facilities include tracing, stop- 
ping, single-stepping, timing, and 
profiling. PL/PC requires an IBM PC or 
compatible with at least 360K RAM 
and DOS 2.11 or later. A demo version 
is available for $16, a standard ver- 
sion for $89, and an 8087 version for 
$159. Reader Service No. 22. 

Creative Computer Software 

117 York St. 

Sydney, NSW 200 

Australia 

(02) 261-1611 


Turbo BASIC from Borland Interna- 
tional combines the interactive as- 
pects of BASIC with the structured, 
modular approach of Pascal. Turbo 
BASIC employs the same develop- 
ment environment as that of Turbo 
Pascal, including a memory-to-mem- 
ory compiler, a full-screen editor, an 
internal linker and run-time library, 
and the Microcalc spreadsheet com- 
plete with source code. Turbo BASIC 
supports true recursion, full 8087 in- 
tegration, and block-structured pro- 
gramming statements. The package 
runs on the IBM PC and compatibles 
and sells for $99.95 . Reader Service 
No. 23. 

Borland International 

4585 Scotts Valley Dr. 

Scotts Valley, CA 95066 

(408) 438-8400 
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Why are scientists, engi- 
neers, and professionals 
switching to Smalltalk/V? 
Because it lets them do 
amazing things on their 
PCs, with a Mac-like 
interface and an 
easy-to-use object- 
oriented language. 

And with Smalltalk/V 
you get an unsurpassed 
array of problem-solving 
tools. You can even per- 
sonalize the entire system to 
suit your needs. 


Smalltalk/V is the program- 
mable environment that 
gives you total control of 
your computer and makes it 


what it was meant to be, a truly personal 


tool for your mind. 


“This is the real thing, folks. A super 
Smalltalk like this turns your PC into a hot 


workstation. It’s fantastic . . . Highly 
recommended.” 
Jobn C. Dvorak, 


Contributing Editor, PC Magazine 


“My background is in physical chemistry, 
not in programming. I like Smalltalk/V 
because I can use objects in the computer to 
represent objects in the physical world.” 
Dr. Paul Soper, Senior Specialist 
E. I. du Pont de Nemours & Co. 


“Smalltalk/V is a productive programming 
environment that allows us to quickly 
develop sophisticated medical 
applications.” 
Dr. Mike McCoy, 
Dean for Instructional Computing 
UCLA School of Medicine 


Why Are So Many People 
_ Switching to Smalltalk 2 










Smalltalk/V 


The Programmable Environment 





“Smalltalk/V, with its visual interface and 
class structure, is a perfect way to simulate 
the complex interactions of natural 
systems.” 
Lee A. Graham, Research Assistant 
Institute of Ecology, University of Georgia 


“I solve problems quickly using Smalltalk/V 
because its classes and objects help me 
organize my thinking. And besides, it’s fun 
to use.” 
Dr. Barry Fishman, Sr. Project Engineer 
Hughes Aircraft Company 





BYTE and BIX are trademarks of McGraw-Hill, Inc. IBM, IBM-PC, and 
IBM PC-AT are trademarks of International Business Machines 
Corporation. Unix is a trademark of Bell Laboratories. 






“Smalltalk/V is the 
highest performance 
object-oriented pro- 

gramming system 
available for PCs.” 

Dr. Piero Scaruffi, 

Chief Scientist, Olivetti 
Artificial Intelligence Center 


“Smalltalk/V is an excellent buy 
and makes a good alternative 
to other programming 
\. ~ languages for the development 
-~ of complex applications.” 


Bill Wong, Director, PC Labs 
PC Magazine 


Other Smalltalk/V 


Features 
® Object-oriented Prolog integrated 
with the Smalltalk environment 
© Supports exploratory programming and 
prototyping 
© Class hierarchy with inheritance creates highly 
re-useable source code 
© Smalltalk source code included, with browser 
windows for easy access and modification 
© Object-swapping creates a virtual memory on 
hard or RAM disk 
© Bit-mapped graphics with bit and form editors 
© A sophisticated source-level debugger 
© Automatic change log for easy recovery 
from errors 
© Powerful directory/file browser system for 
organizing DOS files 
e Access to other languages and DOS 
functions 
© 500 page manual with comprehensive tutorial 
and reference sections 
© Optional add-on modules 
¢ RS-232 communications interface with 
UNIX™ and TTY windows 
¢ EGA color graphics 
* “Goodies” diskette, including 
multiprocessing, music, zoom, object 
loader, and more 

















How a magical 
enie saved this 
programmer from 
olng crazy _ 


Fite format changes were driving me nuts. a 
Then, I got stuck with a 12 year old word ’ 
processing file that had to be converted to 
WordStar® ASAP. I must have passed out 
momentarily, because the next thing I re- 
member is a guy in a turban, jamming a 
diskette into my PC. He pressed a few keys 
and “Presto?” he created a new utility for my 
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program. The file conversion underway, I 4 ‘o: 

passed out again and when I woke up, he Me MeN] 
° eye aft’ x tee d 

was gone— but the amazing utility software he had \ | 





® 


used remained. mS, 
File Genie, that’s the name on the diskette. An amaz- 
ing tool. Since then, I discovered that it will convert 
word processing and data files from most any format to 
any other. And, as if that isn’t enough, it also: diagnoses 
and fixes errors in broken database files, instantly 
searches and replaces on seven and eight bit data (on 
ambiguous file names, with the most complete set of 
regular expressions I’ve ever seen), has a script language 
with IF, ELSE, WHILE, FULL SCREEN CONTROL, 
and the ability to run DOS commands or programs, 
comes with on-line context sensitive help, et cetera, 
et cetera. Allows printing of files without my 
printer reacting to control codes too. 
With File Genie I write my own utility pro- 
grams quickly and easily. As you can imagine, 
I guarded this little gem with my life, keeping it 
totally secret. Until everybody kept asking me 
how I was doing all these incredible things. I have to 
admit, Iam sold. Which gets me to the really fabulous 
news. File Genie is available by calling 1-800-822-0852 for 
an introductory price of only $69.95. You’ll save that much in 
aggravation the first time you use it. So if those files are driving 
you crazy, too, call and order your File Genie today. 


ip T TN Sareea 
pete 
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WordStar® is a registered trademark of MicroPro 


a | tg 6809 Convoy Court 
San Diego, CA 92111 
GEN IE 619-278-5353 (CA) 
™ 800-822-0852 (USA) 


A software product of Team Austin Inc. 
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EXIM ToolKit 
BASIC Programming Support from EXIM Services 
EXIM Services announces the EXIM ToolKit. A 


growing Library of over 65 Assembler and BASIC 
Programming Modules: 


M@ Video/Screen 
Management 


B 1/0 File 
Management 


@ DOS Environment Support & Date Arithmetic 


@ Data BASE Management 


the dBx”™ translator 


‘A@Bx produces quality C direct 
from GBASE II or III programs. 


Move dBASE programs to UNIX or other machines. 


Improve program speed and reliability 


Support multi-user/network applications. 


With power guidebook of conversion hints. 


Includes full screen handler and uses your 


current C database manager. 


May be used to move existing programs or help 


GBASE programmers learn C easily 


For MSDOS, PCDOS, UNIX, XENIX, Macintosh, AMIGA. 
(Uses ANSI-SYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


dBx is a trademark of Desktop A\i 


MCIMAIL « DESKTOPAI 
Telex * 6502972226MCI 


4720 Post Road E., Westport, CT 06880 
Phone « 203-255 +3400 
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EXIM 


@ General Purpose 
Increase Productivity, Decrease Development Time and 
Add Functionality to Your Applications. 


A must addition for software developers using Microsoft 
QuickBASIC or IBM compilers. This high quality, low cost 
library offers developers the advantages of power and 


sophistication. 


Window or Frame Screens and Messages . . . Save/Re- 
store Full or Partial Screens... Accelerated Screen 
Displays .. . Horizontal/Vertical Scroll-Full or Partial 
Screen... Display “Pop Up” Help Screens .. . Find the 
First/Next Directory Entry... Sorting... etc. 


Easy to use, high quality, the EXIM ToolKitis being offered 
for only $49.95, plus $5.00 shipping and handling, with a 
full money back guarantee. 


“If you are not completely satisfied, return the diskettes and 
documentation within 30 days of purchase for a complete 
refund.” 


Do not be left behind. Bring your applications up to date with 
this NO RISK offer. 


No licensing or royalty fees are required to distribute ap- 
plications using the EXIM ToolKit. 


Si seroces OF WA. C¢ <o ERICA 


CLINTON, NEW JERSEY 08809 


(201) 735-7640 
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Two great reasons to buy Turbo Pascal: 


System Builder °99° and Report Builder *75°° 


From the Designer Series by Royal Ame 


State-Of-The-Art Program Gener- 
ators that automatically build a 
Relational Database system with- 
out coding. Entry level ‘‘coders’”’ 
can produce Database systems 
without coding. Developers 
have more flexibility and horse- 
power than any development 
tool on the market. 


Self-documenting program includes 
screen schematics. System Builder 
will generate 2,000 lines of program 
codeinapproximately6seconds. faust! 


SYSTEM BUILDER FEATURES: 


¢ Automatically generates Indented, Structured, Copy Book Source Code 
ready for compiling with Turbo Pascal (no programming needed) 

¢ Paint Application and Menu screens using Keyboard « Screens all use 
In-Line machine code for exceptional speed © 16 Datafiles and 16 Index 
Keys per application ¢ Paint functions include: —Center, copy, move, 
delete, insert or restore a line with one keystroke —Cut and paste blocks 
of text screen to screen — Draw and erase boxes — Access special graphic 
characters and character fill —Go straight from screen to screen — Define 
colors and intensities * Support an unlimited number of memory variables 
* File Recovery Program © automatically modify existing datafiles 

¢ Experienced developers can modify the System Builder * Develop sys- 
tems for Floppy or Hard Disk * Modify System Builder’s output source 
code to include External Procedures, Functions and Inline Code ¢ Easy- 
to-use Interface Program included to access ASCII and Dbase Files 


REPORT BUILDER FEATURES: 


¢ Automatically generates Indented, Structured Source Code ready for 
compiling Turbo Pascal (no programming needed) * Automatically inter- 


<ZROYAL AMERICAN 
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rican Technologies. 


Royal American Technologies 
201 Sansome, Suite 202 
San Francisco, CA 94104 


(800) 654-7766 
in California (800) 851-2555 
Ask for Operator 102. 


Please rush me: ___ copies of SYSTEM 
BUILDER at $99.95 per copy; ___ copies 
of REPORT BUILDER at $75.00 per copy. 





California residents add 6% sales tax. 
Name 


Address 


I've enclosed $5.00 for postage and handling. 








faces to a maximum of 16 Datafiles created with System Builder ° Supports 
Global Parameters such as Headings, Footers, Lines Per Page, Print Size 
and Ad Hoc Sorting ¢ Page breaks on Sub-Totals © Reports can also in- 
clude Text Strings, Variables or Computed expressions containing refer- 
ences from up to 16 Datafiles ¢ Use range input screens allow End Users 
to select portions of a report as needed (i.e. specific account ranges can be 
requested) ¢ Easy-to-use Interface Program included to access dBase Files 





VARS, System Integrators and Dealers, let’s 
work together. Head office: (415)397-7500 


RINT sesesdioresstcheieviipipnistanaiiign asentase-ir cases tacuins tact ae 
miale gee 3s Zip 


Phone 
Payment: []Check (] Money Order [] Cashiers 
Check LJAMEX LIVISA [IMASTERCARD 





Expiration date 
Card Number 


Signature 


30-Day Money-Back Guarantee. Not copy- 
protected. $10 restocking fee if envelope is opened. 


System Requirements: IBM PC/XT/AT', or similar, with 
minimum 256K RAM, dual floppy drives, or hard disk, 
color or monochrome monitor, MS? or PC DOS! version 
2.0 or later, Turbo Pascal Version 2.0 or later (Normal, 
BCD or 8087 versions). 

' Trademark of International Business Machines Corp. 

“Trademark of Microsoft Corp. 

“Turbo Pascal is a registered trademark of Borland International. 
“dBASE is a registered trademark of Ashton-Tate. 








_ SCALE THE HEIGHTS 
~ OF PRODUCTIVITY 
Sure, you've proven thie your hands 
~acomputer is a productive tool. But if 
ent teamed up with a 

| Semibisk’ voth have Ears yet to 
climb! © 


IT’S NO MERE RAMDISK 








SemiDisk has been iciaee me <r for. 
Disk Emulators since their inception. © 


If you've seen RAMdisks you know 
what it’s like to load programs in an 


SEMIDISK 


SemiDisk Systems, Inc. 





= P.O. Box GG, Beaverton, Begone 97075 





~ §03-626-3104 


- Call 503-646- 5510 for CBBS/ ny a 503- 649: 8327 











instant, and read or write files without : i 
delay. Unlike alternatives, the 

SemiDisk offers up to 8 megabytes of 

instant-access storage while leaving 


your computer’s main memory free NEW LOWER SEMIDISK 






Disk equipped computer bulletin ls (300/1200/2400 baud) SemiDisk, SemiSpool trademarks of SemiDisk Systems. 


for what it does best - computing! PRICES THAT WON’T 
KEEP A GRIP ON DATA SNOW YOU UNDER 
Go ahead, turn off your computer. | 512K = 2Mbyte 
Take a vacation. With the battery IBM PC,XT,AT = $495 $995 
: Epson QX-10 $595 $995 


backup option, your valuable data will ae 
oe. S-100,SemiDisk II $799 $1295 
be there in the morning even if you ae 
't. You'll sleep better knowing not ee ee 
a P 8 TRS-801I,12,16 $695 $1295 
even a 5 hour blackout will sabotage Battery 
your files. Backup Unit $130 $130 


Software drivers available for CP/M 80, 
MS-DOS, ZDOS, TurboDOS, and VALDOCS 2. 
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Get a Grip 
on Assembly 
Language. 


The award winning 
Visible Computer: 











The Visible Computer is a book and 
software combination for mastering 
the elusive skills of assembly lan- 
guage. PC Tech Journal took one look 
and made it their September ’85 
“Program of the Month.” 

It's an animated simulation of the 
PC's microprocessor that lets you see 
with your own eyes how assembly 
language works. You'll be using it as 
a debugging tool for years to come. 

It's a tutorial. A lot of people think 
the 350 page manual is the best book 
on assembly language ever written. 

It's 45 demonstration programs you'll 
execute with the simulator, from simple 
register loads to advanced programs 
that manipulate interrupts and perform 
file I/O. And what you’ll learn applies to 
all 86 family proces- 
sors, including the $7 9.95 
80186 and 80286. _ not copy protected 


The Visible Computer for IBM PC/XT/AT and true 
compatibles. If your dealer doesn’t have it, order direct: 
Software Masters, 2714 Finfeather, Bryan, TX, 77801. 
(409) 822-9490. Please include $3.00 shipping. 

Bank cards accepted. 
































Northern California/Northwest 
Lisa Boudreau (415) 366-3600 


Southern California/AZ/NM/TX 
Michael Wiener (415) 366-3600 


Advertising Director 
Robert Horton (415) 366-3600 






TVC takes you inside th 





processor as it executes programs. 


Software Masters” 
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C¢ VY ou have discovered the tru- 

ism,’ Dennis Allison told 
me, ‘that there are only two things: 
memory and bandwidth.” I had been 
arguing that, with memory becom- 
ing cheap and plentiful and DDJ hav- 
ing made its name squeezing com- 
puting power into scarce memory, 
the magazine should now concen- 
trate on techniques for getting 
around bandwidth limitations. 
“Fine,” he said, ‘‘but don’t forget 
about memory. ” 

This column is about memory. I 
started writing it in a hotel room in 
Honolulu, a town in which Mark 
Twain, Jack London, and Hunter S. 
Thompson all wrote memorable re- 
ports on the Hawaiian islands; I had 
their books beside me as I turned on 
the television, looking for news of the 
Kilauea lava flow. 


“The king...could place a taboo 
upon any spot or thing or person and 
it was death for any man to molest 
it.’’,—The Sandwich Islands, Mark 
Twain. 


Remember GNU, the outrageous 
nonproprietary Unix-like operating 
system-in-progress? Richard Stall- 
man says he is about to start the ker- 
nel. The C compiler is now cranking 
out 68020 code. 

Richard enjoys defying taboos. 


Levi Thomas represented DDJ at 
the second Hacker’s Conference, a 
gathering made memorable by the 
spectacle of Ted Nelson, Jerry Pour- 
nelle, and Timothy Leary on the 
same stage and by the reminiscences 
of Chris Espinosa and the brothers 
Baum. In the midst of it all Jolt ar- 
rived and was promptly declared 
programming fuel. Jolt is a soft drink 
that boasts ‘“‘all the sugar and twice 
the caffeine’’—sounds like some- 
thing you wouldn't want to drink just 
before applying for a job at IBM, FMC, 
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Syntex, Lockheed, or any of the other 
companies now requiring drug test- 
ing of job applicants. 

And let’s not forget the West Coast 
Computer Faire. The Advisory Com- 
mittee for next month’s Faire (which 
includes Lee Felsenstein and DDJ's co- 
founder Dennis Allison, first editor 
Jim Warren, and current assistant edi- 
tor Levi Thomas) is concerned that the 
Faire has lost much of the excitement 
that in the past has made it more than 
a trade show (and, I suspect, wants to 
prevent WCCF from becoming the 
unanimous disappointment that the 
PC Faire has become). The committee 
has plans for the Faire that it hopes 
will rekindle some of that remem- 
bered excitement. One notion: Chi- 
nese-menu-style hot-pepper symbols 
next to advanced topics in the pro- 
gram to warn novices. Also: a keynote 
panel on who really owns the IBM 
standard, a pioneers’ panel on com- 
puters and the receding vision of uto- 
pia, and some early reports from the 
field on 386 implementations. And 
then there’s Jerry Pournelle’s “I’m 
mad as hell and I’m not going to take it 
any more’ session. 


Those who attended the December 
17, 1986, meeting of the Homebrew 
Computer Club at Stanford Universi- 
ty have something to remember. The 
club’s perennial toastmaster, Lee Fel- 
senstein, opened the gathering for 
the last time that night. (Homebrew is 
where Processor Technology [re- 
member it?] got its first orders for S- 
100 memory boards and where Steve 
Wozniak showed off his Apple 1) 


And they'll have something to re- 
member it by—cartoonist Larry Gon- 
ick produced a commemorative T- 
shirt for the event. 

After the meeting, the attendees re- 
tired to their traditional watering 
hole, The Oasis, for peanuts, beer, 
and wood carving. 


I remember they fed us peanuts on 
the flight to the Kona Coast, where I 
hoped to get as close as I could get to 
Kilauea. 


‘Kona, where nobody ever dreams 
of looking at a thermometer, where 
every afternoon there falls a refresh- 
ing spring shower, and where nei- 
ther frost nor sunstroke has ever 
been known ...a hurricane .. . a fog 
...are meteorologically impossi- 
ble ...’—My Hawaiian Aloha, Jack 
London. 


‘The Kona Coast in December is as 
close to hell on earth as a half-bright 
mammal can get.’’—The Curse of 
Lono, Hunter S. Thompson. 


Both London’s and Thompson's 
memories were faulty. I have seen 
the debris of a terrible hurricane ona 
Hawaiian beach and _ beautiful 
weather on the Kona Coast in Decem- 
ber. And, both terrible and beautiful, 
the plume of steam rising from the 
sea where molten lava was building 
more Hawaii. I suspect I'll remember 
that when much that seems urgent 
now is forgotten. 


My cousin Corbett’s last words as 
he got on the plane for Hawaii this 
morning were, ‘When the Earth gets 
weird, the weird go into real estate.” 


Wacko Suraid 


Michael Swaine 
editor-in-chief 


Dr. Dobb’s Journal, February 1987 





Separate Compilation 
___ @® Native Code Generation 

___ # Large Memory Model Support 
# Multitasking 
® Powerful Debugging Tools 
= Comprehensive Module Library 
m Available for the PC and the VAX 

Use LOGITECH MODULA-2/86 to 

decrease your overall development cycle 
and produce more reliable, more 
maintainable code. 


€y LOGITECH 
“Y MODULA-2/86 $89 
Includes Editor, Run Time System, Linker, 
8087 Software Emulation, Binary Coded 

Decimal (BCD) Module, Logitech’s com- 


prehensive library, Utility to generate 
standard .EXE files. AND more! 


@= LOGITECH MODULA-2/86 


© with 8087 Support $129 
¢@=@ LOGITECH MODULA-2/86 
5 “7 PLUS $189 


For machines with 512K of RAM. 
Increases compilation speed by 50%. 


= RUN TIME DEBUGGER 
¥ (Source level!) $69 
The ultimate professional’s tool! Display 
‘source, data, call chain and raw memory. 
_ Set break points, variables, pinpoint bugs 
_ in your source! 


— @ UTILITIES PACKAGE $49 


oe Features a Post-Mortem Debugger (PMD). 


__ If your program crashes at run-time the 
_ PMDallows you to analyze the status of 
_ the program and locate the error. Also 
includes a Disassembler, Cross Reference 





_ Call for information about our VAX/VMS _ 
version, Site License, University Discounts, ves 


& Distributor pricing. 





tility, and Version that allows conditional : 











| x WINDOW PACKAGE 


Build windows into your programs. Features 
virtual screens, color support, overlapping 
windows and a variety of borders. 


$49 


© MAKE UTILITY $29 


Figures out dependencies and automatically 
selects modules affected by code changes 
to minimize recompilation and relinking. 


@_ CROSS RUN TIME $199 
~’ Debugger and ROM Package 


Still available at an introductory price! 


TURBO PASCAL to $49 
MODULA-2 TRANSLATOR 


“Turbo Pascal...is a very good system. 
But dont make the mistake of trying 


to use it for large programs.’ 
Niklaus Wirth* 


Our Translator makes it even easier for 
Turbo users to step up to Modula-2/86. 
It changes your Turbo source code 

into Modula-2/86 source, solves all the 
incompatibilities, and translates the 
function calls of Turbo into Modula-2/86 
procedures. Implements the complete 
Turbo libraries! 


_ 30 Day Money Back Guarantee! 


: ee pecia 
number: | | 





© 800-231-7717 


_ _in California 


offering a complete tool set including 













o the power of LOGIT ECH 
.-2/86 at a saving of nearly 
off our usual low prices! We're 





our compiler with 8087 support (for use 
with or without an 8087), our Turbo 

to Modula-2/86 Translator,Run Time 
Debugger, and Utilities in one holiday 
package at a special price! 


YES I want to step up to 
LOGITECH MODULA-2/86! 


Here’s the configuration Id like: 


LI Special Holiday Package $199 
L) Logitech Modula-2/86 $89 

LI with 8087 support $129 

L] Plus Package $189 
L] Turbo to Modula Translator $49 
L] Run Time Debugger $69 
LI Utilities Package $49 
L) Library Sources $99 
L] Window Package $49 
L) Make Utility $29 
L] ROM Package $199 


Add $6.50 for shipping and handling. Calif. 
residents add applicable sales tax. Prices valid 
in U.S. only. 


Total Enclosed $ 
_] Visa LJ MasterCard LJ Check Enclosed 


Card Number Expiration Date 


Signature 

Name 

Address 

City State Zip 


Phone 


A LOGITECH 


Logitech, Inc. 
805 Veterans Blvd. 
Redwood City, CA 94063 
Tel: 415-365-9852 


In Europe: 
Logitech SA, Switzerland 
Tel: 41-21-879656 















In Italy: Tel: 39-2-215-5622 








R Few! Turbo Prolog 
Toolbox 


| 
Our new Turbo Prolog Toolbox™ 
| enhances Turbo Prolog—with more than 
| 80 tools and over 8,000 lines of source 
| code that can easily be incorporated into 
| your programs. It includes about 40 
| 
| 
| 
| 
| 





example programs that show you how 
to use your new tools. 


New Turbo Prolog Toolbox features include: 


Business graphic generation 

Complete communications package 

File transfers from Reflex, dBASE Ill, 
1-2-3, Symphony 
| A unique parser generator 
| Sophisticated user-interface design tools 


System requirements 


New Turbo Prolog and 


Turbo Pascal Toolboxes 
add more Power 











It's the complete developer's toolbox 
and a major addition to Turbo Prolog. You 
get a wide variety of menus—pull-down, 
pop-up, line, tree and box—so you can 
choose the one that suits your application 
best. You'll quickly and easily learn how 
to produce graphics; set up communica- 
tions with remote devices; read information 
from Reflex,® dBASE Ill,° Lotus 1-2-3° and 
Symphony* files; generate parsers and 
design user interfaces. All of this for 
only $99.95. 









Fi 


Only 
$99.95 






| | Turbo Prolog: IBM PC, XT, AT or true compatibles. PC-DOS (MS- 
| DOS) 2.0 or later. 384K. Turbo Prolog Toolbox requires Turbo 
Prolog 1.10 or higher. Dual-floppy disk drive or hard disk. 512K. 





The power and high performance of 
| Turbo Pascal is already in the hands of 
| more than half-a-million people. The tech- 
nically superior Turbo Pascal is the de facto 
worldwide standard and the clear leader. 


anes on : 


$99.95 








‘ew! Turbo Pascal 









a, ics monitor WI : 
4 W Numerical Methods requis rate adapter car, and requires Toe 
| Toolbox STi Toolbox. 8067 or 80287 nume”’ rformance. 
Graphix Too: mended for optimal pe 


What our new Numerical Methods 
Toolbox” will do for you now: 


Turbo Pascal 3.0: for 16-bit MS-DOS and 
| @ Find solutions to equations includes 8087 & ae version minimum memory: 
Interpolations CP/M-86 systems. ures not available. 128K. 


Calculus: numerical derivatives 


ompa 
IBM PC, XT, AT or true © 
or later. Turbo Pascal 2° Peng CGA, IBM EGA, OF 


not required, but recom 
256K. 


48K: 8087 and BCD feat 


Matrix operations: inversions, 
determinants and eigenvalues 
Least squares approximations 
Differential equations 


As well as a free demo FFT program, 
you also get Least Squares Fit in 5 
different forms. 


1. Power 

2. Exponential 

3. Logarithm 

4. 5-term Fourier 

5. 5-term Polynomial 


They're all ready to compile and run. 


All this for only $99.95 


ystem uirements 
ae tibles. PC-DOS (MS-DOS) 
later. Graphics module 



























































































































































Fourier transforms 





and integrals - 


Turbo Graphix Toolbox, Turbo Pascal, and Reflex are registered trademarks and Turbo Prolog, Turbo Prolog Toolbox, and Turbo Pascal Numerical Methods 
Toolbox are trademarks of Borland International, Inc. or Borland/Analytica, Inc. dBASE Ill is a registered trademark of Ashton-Tate. Lotus 1-2-3 and Symphony 
are registered trademarks of Lotus Development Corp. IBM, XT, and AT are registered trademarks of International Business Machines Corp. Hercules is a 
trademark of Hercules Computer Technology. CP/M is a registered trademark of Digital Research, Inc. MS-DOS is a registered trademark of Microsoft Corp. 


Copyright 1986 Borland International 


BI-1097 


Circle no. 161 on reader service card. 


Turbo Prolog” is the most 
popular Al package in the world 
with more than 100,000 users. 

It's the 5th-generation computer 
programming language that brings 
supercomputer power to your IBM® 
PC and compatibies. You can join 
the Al revolution with Turbo Prolog 
for only $99.95. 
Step-by-step 
tutorials, 
demo 
programs 
and source 
code 
included. 





& 6 If you're at all interested in 
artificial intelligence, databases, 
expert systems, or new ways of 
thinking about programming, by 
all means plunk down your $100 
and buy a copy of Turbo Prolog. 


Bruce Webster, BYTE 99 
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call (800) 255-8008 a 


CA (B00) 742-1938 ~ 
Canada (800) 237-1136 


